(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    254923,       5761]
NotebookOptionsPosition[    243425,       5459]
NotebookOutlinePosition[    243766,       5474]
CellTagsIndexPosition[    243723,       5471]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"W", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jmt", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", "W", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", "jmt", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"idx", "=", "1"}], ",", 
    RowBox[{"idx", "<=", 
     RowBox[{"Length", "[", "jmt", "]"}]}], ",", 
    RowBox[{"idx", "++"}], ",", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"N", "[", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"k", "=", "1"}], 
         RowBox[{"Length", "[", "W", "]"}]], 
        RowBox[{"Exp", "[", 
         RowBox[{"2", "Pi", "*", "I", "*", 
          RowBox[{
           RowBox[{"Dot", "[", 
            RowBox[{
             RowBox[{"W", "[", 
              RowBox[{"[", "k", "]"}], "]"}], ",", 
             RowBox[{"jmt", "[", 
              RowBox[{"[", "idx", "]"}], "]"}]}], "]"}], "/", 
           RowBox[{"Length", "[", "W", "]"}]}]}], "]"}]}], "]"}], "]"}], 
     ";"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.52951600275605*^9, 3.529516144063133*^9}, {
  3.5295161826733413`*^9, 3.529516231725147*^9}, {3.5295164584461145`*^9, 
  3.5295165295601816`*^9}, {3.5295165963780036`*^9, 3.5295166831809683`*^9}, {
  3.5295168123703575`*^9, 3.5295170368221955`*^9}, {3.529517099302769*^9, 
  3.5295172026976833`*^9}, {3.5295172594209275`*^9, 3.5295173697102356`*^9}, {
  3.5295174368000727`*^9, 3.5295174400312576`*^9}, {3.5295175670595236`*^9, 
  3.5295176209806075`*^9}, {3.529517656246625*^9, 3.529517688822488*^9}, {
  3.529517757978443*^9, 3.5295178044421005`*^9}, {3.5295178407961807`*^9, 
  3.529517973230755*^9}, {3.5295180100198593`*^9, 3.529518012143981*^9}, {
  3.529518056864539*^9, 3.529518108303481*^9}, {3.530541284800674*^9, 
  3.530541309766102*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.5305413685164623`*^9}],

Cell[BoxData[
 RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368518462*^9}],

Cell[BoxData[
 RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.5305413685214624`*^9}],

Cell[BoxData["15.`"], "Print",
 CellChangeTimes->{3.530541368522463*^9}],

Cell[BoxData[
 RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368525463*^9}],

Cell[BoxData[
 RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368527463*^9}],

Cell[BoxData[
 RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368529463*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "n", ",", "set", ",", "idx", ",", "jdx", ",", "kdx", ",", "WTR", ",", "WTL",
    ",", "WBR", ",", "WBL", ",", "EXP2PIWTRS", ",", "EXP2PIWTLS", ",", 
   "EXP2PIWBRS", ",", "EXP2PIWBLS", ",", "FSTF00", ",", "FSTF0COSK"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"set", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"idx", "=", "1"}], ",", 
    RowBox[{"idx", "<", 
     SuperscriptBox["n", "2"]}], ",", 
    RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"set", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"set", ",", 
        RowBox[{"{", 
         RowBox[{
          FractionBox[
           RowBox[{"idx", "-", 
            RowBox[{"Mod", "[", 
             RowBox[{"idx", ",", "n"}], "]"}]}], "n"], ",", 
          RowBox[{"Mod", "[", 
           RowBox[{"idx", ",", "n"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"set", "=", 
      RowBox[{"Prepend", "[", 
       RowBox[{"set", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"idx", "-", 
             RowBox[{"Mod", "[", 
              RowBox[{"idx", ",", "n"}], "]"}]}], "n"]}], ",", 
          RowBox[{"-", 
           RowBox[{"Mod", "[", 
            RowBox[{"idx", ",", "n"}], "]"}]}]}], "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WTR", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WTR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "1"}], "]"}],
          "]"}], "=", "jdx"}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WTR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "2"}], "]"}],
          "]"}], "=", 
        RowBox[{
         RowBox[{"-", "2"}], "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WTL", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WTL", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "1"}], "]"}],
          "]"}], "=", 
        RowBox[{"-", "jdx"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WTL", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "2"}], "]"}],
          "]"}], "=", 
        RowBox[{
         RowBox[{"-", "2"}], "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WBR", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WBR", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"-", "jdx"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WBR", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"2", "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WBL", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WBL", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "1"}], "]"}], "]"}], "=", "jdx"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WBL", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"2", "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWTRS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{"-", 
          RowBox[{"n", "^", "2"}]}]}], ",", " ", 
        RowBox[{"idx", "<", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{
         RowBox[{"idx", "++"}], "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"EXP2PIWTRS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "=", 
               RowBox[{
                RowBox[{"EXP2PIWTRS", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
                "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"WTR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"EXP2PIWTRS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
               RowBox[{
                RowBox[{"EXP2PIWTRS", "[", 
                 RowBox[{"[", 
                  RowBox[{"ldx", ",", 
                   RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"WTR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "]"}]}], 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWTLS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWTLS", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"EXP2PIWTLS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WTL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWTLS", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"EXP2PIWTLS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WTL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWBRS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBRS", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"EXP2PIWBRS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBRS", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"EXP2PIWBRS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWBLS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBLS", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"EXP2PIWBLS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBLS", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"EXP2PIWBLS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FSTF00", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "0"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", 
       RowBox[{
        RowBox[{"-", "n"}], "/", "2"}]}], ",", 
      RowBox[{"kdx", "\[LessEqual]", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"FSTF00", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"FSTF00", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"FSTF00", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"FSTF00", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FSTF0K", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", 
     RowBox[{"-", "n"}]}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"jdx", "==", "0"}], ",", 
       RowBox[{"jdx", "--"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"kdx", "=", "0"}], ",", 
       RowBox[{"kdx", "\[LessEqual]", "0"}], ",", 
       RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"idx", "=", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
         RowBox[{"idx", "<=", 
          RowBox[{
           RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
         RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"FSTF0K", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "=", 
               RowBox[{
                RowBox[{"FSTF0K", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
                "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "jdx"}], "}"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"FSTF0K", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
               RowBox[{
                RowBox[{"FSTF0K", "[", 
                 RowBox[{"[", 
                  RowBox[{"ldx", ",", 
                   RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "jdx"}], "}"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], 
      "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"REM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BITWISEAND", "=", 
   RowBox[{
   "REM1", "*", "REM2", "*", "REM3", "*", "REM4", "*", "REM5", "*", "REM6", 
    "*", "REP1", "*", "REP2", "*", "REP3", "*", "REP4", "*", "REP5", "*", 
    "REP6", "*", "IMP1", "*", "IMP2", "*", "IMP3", "*", "IMP4", "*", "IMP5", 
    "*", "IMP6", "*", "IMM1", "*", "IMM2", "*", "IMM3", "*", "IMM4", "*", 
    "IMM5", "*", "IMM6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "BITWISEAND", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"BITWISEAND", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", 
       RowBox[{"k", "++"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "k", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"k", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Length", "[", "BITWISEAND", "]"}], "^", "2"}], ")"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BITWISEAND", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "12"}], ")"}]}]}], ",", 
     RowBox[{"Print", "[", "i", "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"FSTF0COSK", "=", 
     RowBox[{"2", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"k", "=", "1"}], "n"], 
       RowBox[{"(", GridBox[{
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]},
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]},
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]},
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]}
         }], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWTRS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWTLS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWBRS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWBLS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", 
       RowBox[{
       "EXP2PIWTRS", "+", "EXP2PIWTLS", "+", "EXP2PIWBRS", "+", "EXP2PIWBLS", 
        "+", "FSTF00", "+", "FSTF0K"}], "]"}], "]"}]}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.530432219350487*^9, 3.530432297919981*^9}, {
   3.5304323494719296`*^9, 3.530432364370782*^9}, {3.5304323982287183`*^9, 
   3.5304324400041075`*^9}, {3.5304324701348314`*^9, 3.530432480886446*^9}, 
   3.5304445244853005`*^9, {3.530444658121944*^9, 3.5304447188104153`*^9}, 
   3.5304448027352157`*^9, {3.530444834423028*^9, 3.5304448659038286`*^9}, {
   3.530444903016951*^9, 3.5304449142815957`*^9}, {3.5304449637394247`*^9, 
   3.530445046393152*^9}, 3.5304451075116477`*^9, {3.5304451691061707`*^9, 
   3.5304451696732035`*^9}, {3.5304452092484665`*^9, 3.5304452850148*^9}, {
   3.5304453152635307`*^9, 3.530445473339572*^9}, {3.5304455117817707`*^9, 
   3.5304455232624273`*^9}, {3.530445557487385*^9, 3.5304455722072268`*^9}, 
   3.5304456144816446`*^9, {3.530445997269539*^9, 3.5304460088552017`*^9}, {
   3.5304460661124763`*^9, 3.5304461689153566`*^9}, {3.530446241478507*^9, 
   3.5304463449934273`*^9}, {3.5304463763212194`*^9, 3.530446512792025*^9}, {
   3.5304481630134125`*^9, 3.530448184678652*^9}, {3.5304482475842495`*^9, 
   3.530448271457615*^9}, {3.53044834532384*^9, 3.530448525897168*^9}, {
   3.530448672663563*^9, 3.5304487924354134`*^9}, {3.53044882839647*^9, 
   3.530448893190176*^9}, {3.5304489284711943`*^9, 3.5304489342955275`*^9}, {
   3.530448992353848*^9, 3.5304490309490557`*^9}, 3.5304491002540197`*^9, {
   3.530449159761423*^9, 3.5304491773424287`*^9}, {3.530449295602193*^9, 
   3.5304494092226915`*^9}, {3.5304494421995773`*^9, 3.530449452151147*^9}, {
   3.530449495264613*^9, 3.5304495041451206`*^9}, {3.53044953769904*^9, 
   3.5304495653636227`*^9}, {3.5304496650973268`*^9, 3.530450026302986*^9}, {
   3.530450071326562*^9, 3.53045016168573*^9}, {3.530450243490409*^9, 
   3.5304502640455847`*^9}, {3.530450306014985*^9, 3.5304503386228504`*^9}, {
   3.5304615886043124`*^9, 3.53046159345959*^9}, {3.530462045046419*^9, 
   3.5304620696158247`*^9}, {3.5304621805451694`*^9, 3.5304621966430902`*^9}, 
   3.530462374711275*^9, {3.5304627503657613`*^9, 3.5304628524506*^9}, {
   3.530462898618241*^9, 3.5304629417647085`*^9}, {3.5304629832090793`*^9, 
   3.530462985121188*^9}, {3.5304631634503884`*^9, 3.5304631760081067`*^9}, {
   3.530463219884616*^9, 3.530463276983882*^9}, {3.5304638742210417`*^9, 
   3.530463933766448*^9}, {3.530464926548232*^9, 3.5304649527227287`*^9}, 
   3.5304649957731915`*^9, {3.5304651585285006`*^9, 3.5304651780276155`*^9}, 
   3.530466204402321*^9, {3.5304676612806497`*^9, 3.5304676941135273`*^9}, {
   3.5304677313746586`*^9, 3.530467740103158*^9}, {3.5304677905370426`*^9, 
   3.5304678516025352`*^9}, {3.5304679027094584`*^9, 3.53046794574292*^9}, {
   3.5304680275535994`*^9, 3.5304680387522397`*^9}, {3.530468927677083*^9, 
   3.530468934212457*^9}, {3.530468964769205*^9, 3.5304690223634987`*^9}, {
   3.5304690951866646`*^9, 3.530469107892391*^9}, {3.5304713631493845`*^9, 
   3.5304713701417847`*^9}, {3.5304720922630873`*^9, 
   3.5304720924770994`*^9}, {3.5304735576689034`*^9, 3.530473569964607*^9}, {
   3.530473619863461*^9, 3.530473669081276*^9}, {3.530473703674255*^9, 
   3.530473713159797*^9}, 3.530473756309265*^9, {3.53047380710017*^9, 
   3.5304738796873217`*^9}, {3.5304742572029147`*^9, 
   3.5304742898887844`*^9}, {3.5304746424989524`*^9, 3.530474684787371*^9}, {
   3.5304752512267694`*^9, 3.530475263243457*^9}, {3.5304763035249577`*^9, 
   3.53047648976361*^9}, {3.5304766052712164`*^9, 3.530476657177185*^9}, {
   3.530476689274021*^9, 3.530476731197419*^9}, {3.5304800643710656`*^9, 
   3.5304800912256017`*^9}, {3.530480134499077*^9, 3.5304801414574747`*^9}, {
   3.5304801822578087`*^9, 3.530480223669177*^9}, {3.5304802687727566`*^9, 
   3.5304803469042253`*^9}, {3.5304803971330986`*^9, 
   3.5304805486987677`*^9}, {3.530480679792266*^9, 3.530480720985622*^9}, {
   3.530481569143134*^9, 3.5304816458065186`*^9}, {3.5304816816015663`*^9, 
   3.5304817457812366`*^9}, {3.5304817925899143`*^9, 3.530481909334592*^9}, {
   3.530481943271533*^9, 3.5304819448556232`*^9}, {3.530481978672558*^9, 
   3.5304820262762804`*^9}, {3.5304820569310336`*^9, 
   3.5304821001645064`*^9}, {3.5304821606919684`*^9, 
   3.5304822296489124`*^9}, {3.530482262232776*^9, 3.5304824469523416`*^9}, {
   3.5305132977169046`*^9, 3.53051330533434*^9}, {3.530528331314777*^9, 
   3.5305283659397573`*^9}, {3.5305285830341744`*^9, 3.530528610743759*^9}, {
   3.530528668871084*^9, 3.5305287108264837`*^9}, {3.530528745442464*^9, 
   3.5305287614963818`*^9}, {3.5305288065389585`*^9, 3.53052883454456*^9}, {
   3.5305289929476204`*^9, 3.5305290027461805`*^9}, {3.530529056888277*^9, 
   3.5305290589883976`*^9}, {3.5305290967855597`*^9, 3.530529117654753*^9}, {
   3.5305295617241526`*^9, 3.530529682998089*^9}, {3.530530327873974*^9, 
   3.5305303704094067`*^9}, {3.530530444634652*^9, 3.530530516847782*^9}, {
   3.530530729025918*^9, 3.530530747299964*^9}, {3.5305308978675756`*^9, 
   3.530530934362663*^9}, {3.5305338629291673`*^9, 3.5305338643762503`*^9}, 
   3.5305339050715775`*^9, {3.530533979873856*^9, 3.530534016405946*^9}, {
   3.5305340804816103`*^9, 3.5305340963915205`*^9}, {3.5305341336396513`*^9, 
   3.530534133769658*^9}, {3.530534706592422*^9, 3.530534725051478*^9}, {
   3.530534966499288*^9, 3.530534975243788*^9}, {3.530535054554324*^9, 
   3.5305350893173127`*^9}, {3.5305373725549064`*^9, 3.5305374052637773`*^9}, 
   3.5305374594658775`*^9, {3.530537521542428*^9, 3.530537547703924*^9}, {
   3.5305376208481083`*^9, 3.5305376210031166`*^9}, {3.5305376809205437`*^9, 
   3.5305376990855827`*^9}, {3.530537755624817*^9, 3.5305378150752172`*^9}, {
   3.5305380024559345`*^9, 3.5305380124515066`*^9}, {3.5305380452913847`*^9, 
   3.5305380458534164`*^9}, {3.530538309823515*^9, 3.5305383263254585`*^9}, {
   3.5305384756419992`*^9, 3.5305384870216503`*^9}, {3.5305385497622385`*^9, 
   3.530538665401853*^9}, {3.530538737963003*^9, 3.530539012306695*^9}, {
   3.5305390794375343`*^9, 3.530539207352851*^9}, {3.5305392853233104`*^9, 
   3.5305393658879185`*^9}, 3.5305395458252106`*^9, {3.530539594915018*^9, 
   3.5305395967581234`*^9}, {3.530539675111605*^9, 3.5305396822310123`*^9}, {
   3.5305398957402244`*^9, 3.530539897026298*^9}, {3.5305399749757566`*^9, 
   3.530540028201801*^9}, {3.530540128070513*^9, 3.530540194166293*^9}, {
   3.530540232679496*^9, 3.5305402635272603`*^9}, {3.5305409193407707`*^9, 
   3.53054092771625*^9}, {3.530541006856776*^9, 3.5305410202995453`*^9}, {
   3.5305411062654624`*^9, 3.5305412276194034`*^9}, {3.5305413791930733`*^9, 
   3.5305414174392605`*^9}, {3.530541464508953*^9, 3.530541574490243*^9}, {
   3.530541628522334*^9, 3.5305416317675195`*^9}, 3.530541699311383*^9, 
   3.530541807798588*^9, {3.5305418487149277`*^9, 3.530541934100812*^9}, 
   3.530542743712119*^9, 3.530543340688264*^9, 3.5305439300909758`*^9, {
   3.5305440297376757`*^9, 3.5305440557001605`*^9}, 3.5305444790323734`*^9, 
   3.530544638851515*^9, {3.5305446845081263`*^9, 3.5305446879213214`*^9}, 
   3.5305447181750517`*^9, {3.5305467299491186`*^9, 3.530546730344141*^9}, 
   3.5305495005095854`*^9, 3.5305540648766527`*^9, 3.530591904374948*^9, {
   3.53060558560947*^9, 3.5306055873195677`*^9}},
 FontSize->18],

Cell[BoxData["\<\"REM1\"\>"], "Print",
 CellChangeTimes->{3.5306158447642603`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 121, 241, 360, 478, 595, 711, 826, 940, 1053, 1165, 1276, 1386, 
      1496, 1606, 1716, 1826, 1936, 2046, 2156, 2266, 2376, 2486, 2596, 2706, 
      2816, 2926, 3036, 3146, 3256, 3366, 3476, 3586, 3696, 3806, 3916, 4026, 
      4136, 4246, 4356, 4466, 4576, 4686, 4796, 4906, 5016, 5126, 5236, 5346, 
      5456, 5566, 5676, 5786, 5896, 6006, 6116, 6226, 6336, 6446, 6556, 6666, 
      6776, 6886, 6996, 7106, 7216, 7326, 7436, 7546, 7656, 7766, 7876, 7986, 
      8096, 8206, 8316, 8426, 8536, 8646, 8756, 8866, 8976, 9086, 9196, 9306, 
      9416, 9526, 9636, 9746, 9856, 9966, 10076, 10186, 10296, 10406, 10516, 
      10626, 10736, 10846, 10956, 11066, 11176, 11286, 11396, 11506, 11616, 
      11726, 11836, 11946, 12056, 12166, 12276, 12386, 12496, 12606, 12716, 
      12826, 12936, 13046, 13156, 13266, 13376, 13486, 13596, 13706, 13816, 
      13926, 14036, 14146, 14256, 14366, 14476, 14586, 14696, 14807, 14919, 
      15032, 15146, 15261, 15377, 15494, 15612, 15731, 15851, 
      15972}, CompressedData["
1:eJy920VzVUEQhuF74wZxgbhAXCAuxA3iAnEhbhAXiBsu+ckEO98kmaqpkZ7V
Wb67p2pOdydPrfZOebhcrplql8t9/XV7eHp5+/j6+QcE3rsfHBIaFh4RGRX9
4GFsXHxCYlJySuqjx+kZmVnZObl5+U+eFhYVl5SWlVdUPquuqa2rb2hsam55
/qKtvaOzq7unt+/lq4HBoeGR0bHxiddT0zOzc/MLi0vLb96urq1vbG5t7+y+
e79/cHh0fHJ6do5wEMIxCKchXIBwFcKtCPcjPInwCsJ7CDvdQHSj0U1FNx/d
SnRb0O1DdwLdZXR30f2fDUA2CtkUZPOQrUC2GdleZMeRXUJ2B9l/VX9UI1FN
RjUX1XJUm1DtQXUM1UVUt1H9G/VDNALRJERzEC1DtBHRbkRHEV1AdAvRP01f
NMPRTEQzG81SNBvQ7EJzBM15NDfR/J30QTIMyQQks5AsQbIeyU4kh5GcQ3ID
yeuiN4qhKMajmIliMYp1KHagOITiLIrrKLo9vBAMQTAOwQwEixCsRbAdwUEE
ZxBcQ9DtiV4werHopaNXiF4Nem3oDaA3jd4qeqAvCPTFgL400FcA+qpAXyvo
6wd9k6BvBfTt2ZXWKq9XNlH9eWXR0h9OzYKh352aBTy/OTULbH51ahbE/OLU
LGj52alZoPKTU7MA5UenZsHJD6hZcPISOXonL1Cjd/IcNXonz1Cjd/IUNXon
T1Cjd/IYNXonj1Cjd/IQNXonD1Cjd3IfNXon8Wi+sOAk80and5J5mNM7yTzH
6Z1kXuH0TjKvb3onmWc3vZPMg5veSeatTe8k886md5J5ZNM7yTyx6Z1kXtgW
nOT/yyRykv8Dk8hJ/m9LIif5fyuJnOT/pSRykv97kshJ/o9JIif5/ySJnOT/
jyRykv8zkshJ/q9IIif5fyKpnBTOfEw6KRz0mHRSON4x6aRwqmPSSeE0x6ST
wjGOSSeFAxyTTgpnNyadFM5tTDopHNqYdFI4sjHppHBiY9RJmdm4tpMyA3Ft
J2XG4NpOyky/tZ2UmXprOykz7tZ2UmbQre2kzIxb20mZ+ba2kzLDbW0nZUbb
2k7KTLb1nVTcIVJzUnFxSM1JxXUhNScVt4TUnFTcDlJzUnEtSM1JxYUgNScV
d4HUnFTcA1JzUnEJSM1JxRUgNScVN4AUndTftZRwUn/BUsJJ/bVKCSf1tykl
nNTfopRwUn99UsJJ/cVJCSf1dyYlnNTfl5RwUn9ZUsJJ/VVJCSf1NyVlnDS6
ky5y0ugiushJo+vnIieNbp2LnDS6bS5y0uiauchJowvmIieN7paLnDS6Vy5y
0uhSuchJoyvlIieNbpQLnaS63eE6SXWww3WS6kyH6yTVdQ7XSaqrHK6TVOc4
XCepDnG4TlLd4HCdpLq/4TpJdXzDdZLq9IbrJNXlDd9JCzeOjJMWLhtZKC1c
NN6g0sIt400tLdwx3hLTwhXjbTYtXDHewdPCHeNdQy3cMnIstXDRyEPVwmUj
l1cLN458aX8BdcSunQ==
      "]}, CompressedData["
1:eJztwTERACAMBLBHCkYqAgkczPjfaoIxydxv3ZHkVAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAPGrgOAk0=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158458283205`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnN1v00gQwPNNUa7qldKekRCqkBBCCCFOkHceuHs6CfHKC23Uqnk43Ynj
/+/Fa+qJNzvOfsyMpxtXkIzW3vi3ju3Z3yj2Xxc/bq7+vvixWl6c//n94t+b
1fK/8z/++b5uGg8Hg+HN+v/l+aCMbweDu5fb9b/bVflStuyOi/JtXHZd1tG4
jEZldFm3jeo2WPql2WNgQhOV/0eOtsfVRp84Fl1ZbfVGrfW+mddJo82xKtb9
syfp/aGvPmxc96v6rv9OleDO7O5tH3OGQy/rA2/kxrqkoG123z7odwEOpvYH
8O5dT96ibrhu7kY4z62O1nluoknYmRJ6MdqMH5VvZvSfypdHG62D8e3mxqaO
tmtH28rR9tXz837tN19//Rt/vtf9seNDzevH6hhuLghMKsOKyvcqHsHXXJCy
oRZW9Do+cTCYtqJsGpVnyW9lNK4j01Z4Rh59n5bRzHNXoOMYbY49KCmYY3J6
e7dUdtyjeuOTcPLx5ph3Xapdp57Z5mnCMK0Bt6/3rP2L3jWAvRytdaj7pkjX
Jaez4W9dgIOy/c+Lmis7mY84SR2H7944x77Qlvx5TwiPebkgep4v4REvF/R9
kS/hIS8X9H2ZL+GclwuWvsqX8CEvF0Sv8yWc8XJB9KYn7I5wwssF0dt8CUe8
XND395wJuZCg7/ss4Zhz8CI3LmaDNlzmfMsOjtmDDdykh5OGY1bz6kTNEo5Z
yD+U0cMs4Zg13Hyt8yzhmOXbwB1mCces3AbuKEs4Zo01cMdZwjHLq4E76eGk
4Zh92uTWs0zhaGmstFrkxsWXR2FpTlwsAm1x6bJ7KjgWR7XgdAk0FRyLoy6a
6+kS6L2AYxHoRXM9XXZPBcci0B+abbrsngqORaCt65wuu6eCYxFoC06X3VPB
sQi0BafL7qngWBzVSl+6BJoKjsVRrfSlS6D3BI6CBk2rRW5cfHkUopy4CAUa
5dJg9/RwhAKNwmmwe3o4QkddYOtpEGh6OEJHXWDraRDoPYMjFOgFtp4Gu6eH
IxRo1wzERBrsPhpu+x5i15Ml0HsDCTUbzSMbmu2+MdlF3HLr410Pj1v6R0rG
3SQIHdSwjIZVxLpXCEsH6F5BSwcq9grcFC22L+z7oRUeF4SFEXTOhBZGVBwX
+e0V6zZr13NK0KxBWFFBJ1sbFRX33dQu4p9jkigF+YB3UXJB52BFzyXDxTcZ
hCgnruQqkAdXdyUqTrjkKhA6M4GouxIVJ1xyFQiF01Ci4oRLLrSgcx0NVSBO
uORCCzrlgPW6qwLtLVxyFah9BmKi7kpUnHDJRRiP3NrdD1A44ZKLEx65tbsf
oHDCJUu7R27t7gconHDJ7uyRW7v7jQcvXChNUOYqcuPiS1UQ9Vz8XJHu7JE4
IZIWexm4SHcOgpMWexm4SHf2mHJ0J/YycJHu7DHl6E7sZeAi9dRjygFLpd1Z
Bi5ST30nHyaSduceLtadgyYk0mIvAxfpzkG5VVrsZeAi3Tkot0qLvQxcpDsH
5VZpsZeCC9hKeFotcuPiS1UQ5cQV5KhBCQoiGYHu4WIFOhJOxu6l4YIEOmje
IW330nBBAh0075C2e2m4IIEOmnfAUhm7l4YLctTwGYiJZARaGi7IUSMnJDIC
3cPFCnRkbpWxe2m4IIGOzK0ydi8NFyTQkblVxu7l4fy2EplWi9y4+PIoRDlx
eTiqiyvogssp0N3BeThqZGqHiFOge7hYgY6cd8jYfXdwHgIdOe+Qsfvu4DwE
OnLeAUs57b47OA+BTpmBmIjT7ruD83DU5AkJp0B3B+fhqMnpi1Og9xvO3E9u
7k33uMfcQ6qT8y0q1RbkQcV/AMuqhvITrbbyf8oTAzjH5Ec/jRgsPDbDw+iT
k/1ZvTWz3SnjwCKLFjRDJPgWZ/UxjDwwYoKPsg03edpRwADdj3dAeB9sjGs9
SKtnzJcpNcypPUwDOG4d5oPm7mi/YvLNdCBCH0ViQR7sSEddsUaXPdq5gq7V
9DUZDXBoZSF5tggRfdlDAxxaWUiekHGWPXq4HXBo2SN5isdZk9EAh5Y9kqdV
sJS+JqMBDi170ExkTERfk9EAh5Y9CCck9DUZDXBoZYEwt9KXPTTAoeUAwvRF
/6OGHm4HHFofIMyt9L+40AG3vRXCtFrkxsWXRyHKicsSaF+uoBOCyu51wVkC
TTjvgIjK7nXBHbfC6RJoXXBHDjgaJHqB7uG84Q4xuGQkWEpl97rgLIGmnoGY
iMrudcFZAs0yIaGye11wlkCz5FYqu9cFZzkqS26lEmhdcCMHHHX6ohJobXDb
XISZq+i5ZLj4UihEOXGdOi5iHlxBX3Wa2GuFO/GE607stcIdt8JpEHutcEcO
ODV6qhrusIajRoKlae7cw0XAzZtw1DMQE6WJvVY4cyYxT0jSxF4r3MxxnaPO
FWlirxVu0gqnQey1wo0ccIrcWTEcc+YqcuN6z0ZjRT2cJNy7ECQLLqhHtE/r
J3zL+7VCFG3W+gnf8HIROLZ+wte8XAS2rZ/wFS8XLI1WW/2EL3m5IIqW3J4w
nfAFLxdE0UKun/A5LxdE0Wqun/Ccl4tA0tUQzss3cxs3epP6M15Cp7hv3a5u
EH+pmKu35r3nY030TQzXrfLziJE85eW31qMaCTy1QpYfHl0xSd//5vUjz3cb
89nmDX1Qgavt2tG2crR9RT/P/QSJQ/xCx4PhfZ3ds82XweBT+VLRVMfVKi4u
yjdz5C3rCJ7Uc1m3wbMoYOmXZg/3M0IabY+rjT5xLLqy2uqNWut9qw7RRptj
Vaz7Z0/S+0Nffdi47lf1Xf+dKsGd2d3bPuYMh17WBx7yMJtLCtpm9+2Dfhdg
wFN0SPauJ29RN1w3dyOc51ZH6zw3kSvBtpwpPhegwfB/Bl5TXw==\
\>"]],

Cell[BoxData["\<\"REM2\"\>"], "Print",
 CellChangeTimes->{3.5306158458923244`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 121, 241, 360, 478, 595, 711, 826, 940, 1053, 1165, 1276, 1386, 
      1496, 1606, 1716, 1826, 1936, 2046, 2156, 2266, 2376, 2486, 2596, 2706, 
      2816, 2926, 3036, 3146, 3256, 3366, 3476, 3586, 3696, 3806, 3916, 4026, 
      4136, 4246, 4356, 4466, 4576, 4686, 4796, 4906, 5016, 5126, 5236, 5346, 
      5456, 5566, 5676, 5786, 5896, 6006, 6116, 6226, 6336, 6446, 6556, 6666, 
      6776, 6886, 6996, 7106, 7216, 7326, 7436, 7546, 7656, 7766, 7876, 7986, 
      8096, 8206, 8316, 8426, 8536, 8646, 8756, 8866, 8976, 9086, 9196, 9306, 
      9416, 9526, 9636, 9746, 9856, 9966, 10076, 10186, 10296, 10406, 10516, 
      10626, 10736, 10846, 10956, 11066, 11176, 11286, 11396, 11506, 11616, 
      11726, 11836, 11946, 12056, 12166, 12276, 12386, 12496, 12606, 12716, 
      12826, 12936, 13046, 13156, 13266, 13376, 13486, 13596, 13706, 13816, 
      13926, 14036, 14146, 14256, 14366, 14476, 14586, 14696, 14807, 14919, 
      15032, 15146, 15261, 15377, 15494, 15612, 15731, 15851, 
      15972}, CompressedData["
1:eJy920VzVUEQhuF74wZxgbhAXCAuxA3iAnEhbhAXiBsu+ckEO98kmaqpkZ7V
Wb67p2pOdydPrfZOebhcrplql8t9/XV7eHp5+/j6+QcE3rsfHBIaFh4RGRX9
4GFsXHxCYlJySuqjx+kZmVnZObl5+U+eFhYVl5SWlVdUPquuqa2rb2hsam55
/qKtvaOzq7unt+/lq4HBoeGR0bHxiddT0zOzc/MLi0vLb96urq1vbG5t7+y+
e79/cHh0fHJ6do5wEMIxCKchXIBwFcKtCPcjPInwCsJ7CDvdQHSj0U1FNx/d
SnRb0O1DdwLdZXR30f2fDUA2CtkUZPOQrUC2GdleZMeRXUJ2B9l/VX9UI1FN
RjUX1XJUm1DtQXUM1UVUt1H9G/VDNALRJERzEC1DtBHRbkRHEV1AdAvRP01f
NMPRTEQzG81SNBvQ7EJzBM15NDfR/J30QTIMyQQks5AsQbIeyU4kh5GcQ3ID
yeuiN4qhKMajmIliMYp1KHagOITiLIrrKLo9vBAMQTAOwQwEixCsRbAdwUEE
ZxBcQ9DtiV4werHopaNXiF4Nem3oDaA3jd4qeqAvCPTFgL400FcA+qpAXyvo
6wd9k6BvBfTt2ZXWKq9XNlH9eWXR0h9OzYKh352aBTy/OTULbH51ahbE/OLU
LGj52alZoPKTU7MA5UenZsHJD6hZcPISOXonL1Cjd/IcNXonz1Cjd/IUNXon
T1Cjd/IYNXonj1Cjd/IQNXonD1Cjd3IfNXon8Wi+sOAk80and5J5mNM7yTzH
6Z1kXuH0TjKvb3onmWc3vZPMg5veSeatTe8k886md5J5ZNM7yTyx6Z1kXtgW
nOT/yyRykv8Dk8hJ/m9LIif5fyuJnOT/pSRykv97kshJ/o9JIif5/ySJnOT/
jyRykv8zkshJ/q9IIif5fyKpnBTOfEw6KRz0mHRSON4x6aRwqmPSSeE0x6ST
wjGOSSeFAxyTTgpnNyadFM5tTDopHNqYdFI4sjHppHBiY9RJmdm4tpMyA3Ft
J2XG4NpOyky/tZ2UmXprOykz7tZ2UmbQre2kzIxb20mZ+ba2kzLDbW0nZUbb
2k7KTLb1nVTcIVJzUnFxSM1JxXUhNScVt4TUnFTcDlJzUnEtSM1JxYUgNScV
d4HUnFTcA1JzUnEJSM1JxRUgNScVN4AUndTftZRwUn/BUsJJ/bVKCSf1tykl
nNTfopRwUn99UsJJ/cVJCSf1dyYlnNTfl5RwUn9ZUsJJ/VVJCSf1NyVlnDS6
ky5y0ugiushJo+vnIieNbp2LnDS6bS5y0uiauchJowvmIieN7paLnDS6Vy5y
0uhSuchJoyvlIieNbpQLnaS63eE6SXWww3WS6kyH6yTVdQ7XSaqrHK6TVOc4
XCepDnG4TlLd4HCdpLq/4TpJdXzDdZLq9IbrJNXlDd9JCzeOjJMWLhtZKC1c
NN6g0sIt400tLdwx3hLTwhXjbTYtXDHewdPCHeNdQy3cMnIstXDRyEPVwmUj
l1cLN458aX8BdcSunQ==
      "]}, CompressedData["
1:eJztwTERACAMBLBHCkYqAgkczPjfaoIxydxv3ZHkVAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAPGrgOAk0=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158461913414`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnN1v00gQwPNNUa7qldKekRCqkBBCCCFOkHceuHs6CfHKC23Uqnk43Ynj
/+/Fa+qJNzvOfsyMpxtXkIzW3vi3ju3Z3yj2Xxc/bq7+vvixWl6c//n94t+b
1fK/8z/++b5uGg8Hg+HN+v/l+aCMbweDu5fb9b/bVflStuyOi/JtXHZd1tG4
jEZldFm3jeo2WPql2WNgQhOV/0eOtsfVRp84Fl1ZbfVGrfW+mddJo82xKtb9
syfp/aGvPmxc96v6rv9OleDO7O5tH3OGQy/rA2/kxrqkoG123z7odwEOpvYH
8O5dT96ibrhu7kY4z62O1nluoknYmRJ6MdqMH5VvZvSfypdHG62D8e3mxqaO
tmtH28rR9tXz837tN19//Rt/vtf9seNDzevH6hhuLghMKsOKyvcqHsHXXJCy
oRZW9Do+cTCYtqJsGpVnyW9lNK4j01Z4Rh59n5bRzHNXoOMYbY49KCmYY3J6
e7dUdtyjeuOTcPLx5ph3Xapdp57Z5mnCMK0Bt6/3rP2L3jWAvRytdaj7pkjX
Jaez4W9dgIOy/c+Lmis7mY84SR2H7944x77Qlvx5TwiPebkgep4v4REvF/R9
kS/hIS8X9H2ZL+GclwuWvsqX8CEvF0Sv8yWc8XJB9KYn7I5wwssF0dt8CUe8
XND395wJuZCg7/ss4Zhz8CI3LmaDNlzmfMsOjtmDDdykh5OGY1bz6kTNEo5Z
yD+U0cMs4Zg13Hyt8yzhmOXbwB1mCces3AbuKEs4Zo01cMdZwjHLq4E76eGk
4Zh92uTWs0zhaGmstFrkxsWXR2FpTlwsAm1x6bJ7KjgWR7XgdAk0FRyLoy6a
6+kS6L2AYxHoRXM9XXZPBcci0B+abbrsngqORaCt65wuu6eCYxFoC06X3VPB
sQi0BafL7qngWBzVSl+6BJoKjsVRrfSlS6D3BI6CBk2rRW5cfHkUopy4CAUa
5dJg9/RwhAKNwmmwe3o4QkddYOtpEGh6OEJHXWDraRDoPYMjFOgFtp4Gu6eH
IxRo1wzERBrsPhpu+x5i15Ml0HsDCTUbzSMbmu2+MdlF3HLr410Pj1v6R0rG
3SQIHdSwjIZVxLpXCEsH6F5BSwcq9grcFC22L+z7oRUeF4SFEXTOhBZGVBwX
+e0V6zZr13NK0KxBWFFBJ1sbFRX33dQu4p9jkigF+YB3UXJB52BFzyXDxTcZ
hCgnruQqkAdXdyUqTrjkKhA6M4GouxIVJ1xyFQiF01Ci4oRLLrSgcx0NVSBO
uORCCzrlgPW6qwLtLVxyFah9BmKi7kpUnHDJRRiP3NrdD1A44ZKLEx65tbsf
oHDCJUu7R27t7gconHDJ7uyRW7v7jQcvXChNUOYqcuPiS1UQ9Vz8XJHu7JE4
IZIWexm4SHcOgpMWexm4SHf2mHJ0J/YycJHu7DHl6E7sZeAi9dRjygFLpd1Z
Bi5ST30nHyaSduceLtadgyYk0mIvAxfpzkG5VVrsZeAi3Tkot0qLvQxcpDsH
5VZpsZeCC9hKeFotcuPiS1UQ5cQV5KhBCQoiGYHu4WIFOhJOxu6l4YIEOmje
IW330nBBAh0075C2e2m4IIEOmnfAUhm7l4YLctTwGYiJZARaGi7IUSMnJDIC
3cPFCnRkbpWxe2m4IIGOzK0ydi8NFyTQkblVxu7l4fy2EplWi9y4+PIoRDlx
eTiqiyvogssp0N3BeThqZGqHiFOge7hYgY6cd8jYfXdwHgIdOe+Qsfvu4DwE
OnLeAUs57b47OA+BTpmBmIjT7ruD83DU5AkJp0B3B+fhqMnpi1Og9xvO3E9u
7k33uMfcQ6qT8y0q1RbkQcV/AMuqhvITrbbyf8oTAzjH5Ec/jRgsPDbDw+iT
k/1ZvTWz3SnjwCKLFjRDJPgWZ/UxjDwwYoKPsg03edpRwADdj3dAeB9sjGs9
SKtnzJcpNcypPUwDOG4d5oPm7mi/YvLNdCBCH0ViQR7sSEddsUaXPdq5gq7V
9DUZDXBoZSF5tggRfdlDAxxaWUiekHGWPXq4HXBo2SN5isdZk9EAh5Y9kqdV
sJS+JqMBDi170ExkTERfk9EAh5Y9CCck9DUZDXBoZYEwt9KXPTTAoeUAwvRF
/6OGHm4HHFofIMyt9L+40AG3vRXCtFrkxsWXRyHKicsSaF+uoBOCyu51wVkC
TTjvgIjK7nXBHbfC6RJoXXBHDjgaJHqB7uG84Q4xuGQkWEpl97rgLIGmnoGY
iMrudcFZAs0yIaGye11wlkCz5FYqu9cFZzkqS26lEmhdcCMHHHX6ohJobXDb
XISZq+i5ZLj4UihEOXGdOi5iHlxBX3Wa2GuFO/GE607stcIdt8JpEHutcEcO
ODV6qhrusIajRoKlae7cw0XAzZtw1DMQE6WJvVY4cyYxT0jSxF4r3MxxnaPO
FWlirxVu0gqnQey1wo0ccIrcWTEcc+YqcuN6z0ZjRT2cJNy7ECQLLqhHtE/r
J3zL+7VCFG3W+gnf8HIROLZ+wte8XAS2rZ/wFS8XLI1WW/2EL3m5IIqW3J4w
nfAFLxdE0UKun/A5LxdE0Wqun/Ccl4tA0tUQzss3cxs3epP6M15Cp7hv3a5u
EH+pmKu35r3nY030TQzXrfLziJE85eW31qMaCTy1QpYfHl0xSd//5vUjz3cb
89nmDX1Qgavt2tG2crR9RT/P/QSJQ/xCx4PhfZ3ds82XweBT+VLRVMfVKi4u
yjdz5C3rCJ7Uc1m3wbMoYOmXZg/3M0IabY+rjT5xLLqy2uqNWut9qw7RRptj
Vaz7Z0/S+0Nffdi47lf1Xf+dKsGd2d3bPuYMh17WBx7yMJtLCtpm9+2Dfhdg
wFN0SPauJ29RN1w3dyOc51ZH6zw3kSvBtpwpPhegwfB/Bl5TXw==\
\>"]],

Cell[BoxData["\<\"REM3\"\>"], "Print",
 CellChangeTimes->{3.5306158462463446`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0}, {}}, {}}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158465193605`*^9}],

Cell[BoxData["\<\"REM4\"\>"], "Print",
 CellChangeTimes->{3.530615846527361*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0}, {}}, {}}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158465403614`*^9}],

Cell[BoxData["\<\"REM5\"\>"], "Print",
 CellChangeTimes->{3.530615846549362*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 121, 241, 360, 478, 595, 711, 826, 940, 1053, 1165, 1276, 1386, 
      1496, 1606, 1716, 1826, 1936, 2046, 2156, 2266, 2376, 2486, 2596, 2706, 
      2816, 2926, 3036, 3146, 3256, 3366, 3476, 3586, 3696, 3806, 3916, 4026, 
      4136, 4246, 4356, 4466, 4576, 4686, 4796, 4906, 5016, 5126, 5236, 5346, 
      5456, 5566, 5676, 5786, 5896, 6006, 6116, 6226, 6336, 6446, 6556, 6666, 
      6776, 6886, 6996, 7106, 7216, 7326, 7436, 7546, 7656, 7766, 7876, 7986, 
      8096, 8206, 8316, 8426, 8536, 8646, 8756, 8866, 8976, 9086, 9196, 9306, 
      9416, 9526, 9636, 9746, 9856, 9966, 10076, 10186, 10296, 10406, 10516, 
      10626, 10736, 10846, 10956, 11066, 11176, 11286, 11396, 11506, 11616, 
      11726, 11836, 11946, 12056, 12166, 12276, 12386, 12496, 12606, 12716, 
      12826, 12936, 13046, 13156, 13266, 13376, 13486, 13596, 13706, 13816, 
      13926, 14036, 14146, 14256, 14366, 14476, 14586, 14696, 14807, 14919, 
      15032, 15146, 15261, 15377, 15494, 15612, 15731, 15851, 
      15972}, CompressedData["
1:eJy920VzVUEQhuF74wZxgbhAXCAuxA3iAnEhbhAXiBsu+ckEO98kmaqpkZ7V
Wb67p2pOdydPrfZOebhcrplql8t9/XV7eHp5+/j6+QcE3rsfHBIaFh4RGRX9
4GFsXHxCYlJySuqjx+kZmVnZObl5+U+eFhYVl5SWlVdUPquuqa2rb2hsam55
/qKtvaOzq7unt+/lq4HBoeGR0bHxiddT0zOzc/MLi0vLb96urq1vbG5t7+y+
e79/cHh0fHJ6do5wEMIxCKchXIBwFcKtCPcjPInwCsJ7CDvdQHSj0U1FNx/d
SnRb0O1DdwLdZXR30f2fDUA2CtkUZPOQrUC2GdleZMeRXUJ2B9l/VX9UI1FN
RjUX1XJUm1DtQXUM1UVUt1H9G/VDNALRJERzEC1DtBHRbkRHEV1AdAvRP01f
NMPRTEQzG81SNBvQ7EJzBM15NDfR/J30QTIMyQQks5AsQbIeyU4kh5GcQ3ID
yeuiN4qhKMajmIliMYp1KHagOITiLIrrKLo9vBAMQTAOwQwEixCsRbAdwUEE
ZxBcQ9DtiV4werHopaNXiF4Nem3oDaA3jd4qeqAvCPTFgL400FcA+qpAXyvo
6wd9k6BvBfTt2ZXWKq9XNlH9eWXR0h9OzYKh352aBTy/OTULbH51ahbE/OLU
LGj52alZoPKTU7MA5UenZsHJD6hZcPISOXonL1Cjd/IcNXonz1Cjd/IUNXon
T1Cjd/IYNXonj1Cjd/IQNXonD1Cjd3IfNXon8Wi+sOAk80and5J5mNM7yTzH
6Z1kXuH0TjKvb3onmWc3vZPMg5veSeatTe8k886md5J5ZNM7yTyx6Z1kXtgW
nOT/yyRykv8Dk8hJ/m9LIif5fyuJnOT/pSRykv97kshJ/o9JIif5/ySJnOT/
jyRykv8zkshJ/q9IIif5fyKpnBTOfEw6KRz0mHRSON4x6aRwqmPSSeE0x6ST
wjGOSSeFAxyTTgpnNyadFM5tTDopHNqYdFI4sjHppHBiY9RJmdm4tpMyA3Ft
J2XG4NpOyky/tZ2UmXprOykz7tZ2UmbQre2kzIxb20mZ+ba2kzLDbW0nZUbb
2k7KTLb1nVTcIVJzUnFxSM1JxXUhNScVt4TUnFTcDlJzUnEtSM1JxYUgNScV
d4HUnFTcA1JzUnEJSM1JxRUgNScVN4AUndTftZRwUn/BUsJJ/bVKCSf1tykl
nNTfopRwUn99UsJJ/cVJCSf1dyYlnNTfl5RwUn9ZUsJJ/VVJCSf1NyVlnDS6
ky5y0ugiushJo+vnIieNbp2LnDS6bS5y0uiauchJowvmIieN7paLnDS6Vy5y
0uhSuchJoyvlIieNbpQLnaS63eE6SXWww3WS6kyH6yTVdQ7XSaqrHK6TVOc4
XCepDnG4TlLd4HCdpLq/4TpJdXzDdZLq9IbrJNXlDd9JCzeOjJMWLhtZKC1c
NN6g0sIt400tLdwx3hLTwhXjbTYtXDHewdPCHeNdQy3cMnIstXDRyEPVwmUj
l1cLN458aX8BdcSunQ==
      "]}, CompressedData["
1:eJztwTERACAMBLBHCkYqAgkczPjfaoIxydxv3ZHkVAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAPGrgOAk0=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158465903645`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnN1v00gQwPNNUa7qldKekRCqkBBCCCFOkHceuHs6CfHKC23Uqnk43Ynj
/+/Fa+qJNzvOfsyMpxtXkIzW3vi3ju3Z3yj2Xxc/bq7+vvixWl6c//n94t+b
1fK/8z/++b5uGg8Hg+HN+v/l+aCMbweDu5fb9b/bVflStuyOi/JtXHZd1tG4
jEZldFm3jeo2WPql2WNgQhOV/0eOtsfVRp84Fl1ZbfVGrfW+mddJo82xKtb9
syfp/aGvPmxc96v6rv9OleDO7O5tH3OGQy/rA2/kxrqkoG123z7odwEOpvYH
8O5dT96ibrhu7kY4z62O1nluoknYmRJ6MdqMH5VvZvSfypdHG62D8e3mxqaO
tmtH28rR9tXz837tN19//Rt/vtf9seNDzevH6hhuLghMKsOKyvcqHsHXXJCy
oRZW9Do+cTCYtqJsGpVnyW9lNK4j01Z4Rh59n5bRzHNXoOMYbY49KCmYY3J6
e7dUdtyjeuOTcPLx5ph3Xapdp57Z5mnCMK0Bt6/3rP2L3jWAvRytdaj7pkjX
Jaez4W9dgIOy/c+Lmis7mY84SR2H7944x77Qlvx5TwiPebkgep4v4REvF/R9
kS/hIS8X9H2ZL+GclwuWvsqX8CEvF0Sv8yWc8XJB9KYn7I5wwssF0dt8CUe8
XND395wJuZCg7/ss4Zhz8CI3LmaDNlzmfMsOjtmDDdykh5OGY1bz6kTNEo5Z
yD+U0cMs4Zg13Hyt8yzhmOXbwB1mCces3AbuKEs4Zo01cMdZwjHLq4E76eGk
4Zh92uTWs0zhaGmstFrkxsWXR2FpTlwsAm1x6bJ7KjgWR7XgdAk0FRyLoy6a
6+kS6L2AYxHoRXM9XXZPBcci0B+abbrsngqORaCt65wuu6eCYxFoC06X3VPB
sQi0BafL7qngWBzVSl+6BJoKjsVRrfSlS6D3BI6CBk2rRW5cfHkUopy4CAUa
5dJg9/RwhAKNwmmwe3o4QkddYOtpEGh6OEJHXWDraRDoPYMjFOgFtp4Gu6eH
IxRo1wzERBrsPhpu+x5i15Ml0HsDCTUbzSMbmu2+MdlF3HLr410Pj1v6R0rG
3SQIHdSwjIZVxLpXCEsH6F5BSwcq9grcFC22L+z7oRUeF4SFEXTOhBZGVBwX
+e0V6zZr13NK0KxBWFFBJ1sbFRX33dQu4p9jkigF+YB3UXJB52BFzyXDxTcZ
hCgnruQqkAdXdyUqTrjkKhA6M4GouxIVJ1xyFQiF01Ci4oRLLrSgcx0NVSBO
uORCCzrlgPW6qwLtLVxyFah9BmKi7kpUnHDJRRiP3NrdD1A44ZKLEx65tbsf
oHDCJUu7R27t7gconHDJ7uyRW7v7jQcvXChNUOYqcuPiS1UQ9Vz8XJHu7JE4
IZIWexm4SHcOgpMWexm4SHf2mHJ0J/YycJHu7DHl6E7sZeAi9dRjygFLpd1Z
Bi5ST30nHyaSduceLtadgyYk0mIvAxfpzkG5VVrsZeAi3Tkot0qLvQxcpDsH
5VZpsZeCC9hKeFotcuPiS1UQ5cQV5KhBCQoiGYHu4WIFOhJOxu6l4YIEOmje
IW330nBBAh0075C2e2m4IIEOmnfAUhm7l4YLctTwGYiJZARaGi7IUSMnJDIC
3cPFCnRkbpWxe2m4IIGOzK0ydi8NFyTQkblVxu7l4fy2EplWi9y4+PIoRDlx
eTiqiyvogssp0N3BeThqZGqHiFOge7hYgY6cd8jYfXdwHgIdOe+Qsfvu4DwE
OnLeAUs57b47OA+BTpmBmIjT7ruD83DU5AkJp0B3B+fhqMnpi1Og9xvO3E9u
7k33uMfcQ6qT8y0q1RbkQcV/AMuqhvITrbbyf8oTAzjH5Ec/jRgsPDbDw+iT
k/1ZvTWz3SnjwCKLFjRDJPgWZ/UxjDwwYoKPsg03edpRwADdj3dAeB9sjGs9
SKtnzJcpNcypPUwDOG4d5oPm7mi/YvLNdCBCH0ViQR7sSEddsUaXPdq5gq7V
9DUZDXBoZSF5tggRfdlDAxxaWUiekHGWPXq4HXBo2SN5isdZk9EAh5Y9kqdV
sJS+JqMBDi170ExkTERfk9EAh5Y9CCck9DUZDXBoZYEwt9KXPTTAoeUAwvRF
/6OGHm4HHFofIMyt9L+40AG3vRXCtFrkxsWXRyHKicsSaF+uoBOCyu51wVkC
TTjvgIjK7nXBHbfC6RJoXXBHDjgaJHqB7uG84Q4xuGQkWEpl97rgLIGmnoGY
iMrudcFZAs0yIaGye11wlkCz5FYqu9cFZzkqS26lEmhdcCMHHHX6ohJobXDb
XISZq+i5ZLj4UihEOXGdOi5iHlxBX3Wa2GuFO/GE607stcIdt8JpEHutcEcO
ODV6qhrusIajRoKlae7cw0XAzZtw1DMQE6WJvVY4cyYxT0jSxF4r3MxxnaPO
FWlirxVu0gqnQey1wo0ccIrcWTEcc+YqcuN6z0ZjRT2cJNy7ECQLLqhHtE/r
J3zL+7VCFG3W+gnf8HIROLZ+wte8XAS2rZ/wFS8XLI1WW/2EL3m5IIqW3J4w
nfAFLxdE0UKun/A5LxdE0Wqun/Ccl4tA0tUQzss3cxs3epP6M15Cp7hv3a5u
EH+pmKu35r3nY030TQzXrfLziJE85eW31qMaCTy1QpYfHl0xSd//5vUjz3cb
89nmDX1Qgavt2tG2crR9RT/P/QSJQ/xCx4PhfZ3ds82XweBT+VLRVMfVKi4u
yjdz5C3rCJ7Uc1m3wbMoYOmXZg/3M0IabY+rjT5xLLqy2uqNWut9qw7RRptj
Vaz7Z0/S+0Nffdi47lf1Xf+dKsGd2d3bPuYMh17WBx7yMJtLCtpm9+2Dfhdg
wFN0SPauJ29RN1w3dyOc51ZH6zw3kSvBtpwpPhegwfB/Bl5TXw==\
\>"]],

Cell[BoxData["\<\"REM6\"\>"], "Print",
 CellChangeTimes->{3.5306158466463675`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 121, 241, 360, 478, 595, 711, 826, 940, 1053, 1165, 1276, 1386, 
      1496, 1606, 1716, 1826, 1936, 2046, 2156, 2266, 2376, 2486, 2596, 2706, 
      2816, 2926, 3036, 3146, 3256, 3366, 3476, 3586, 3696, 3806, 3916, 4026, 
      4136, 4246, 4356, 4466, 4576, 4686, 4796, 4906, 5016, 5126, 5236, 5346, 
      5456, 5566, 5676, 5786, 5896, 6006, 6116, 6226, 6336, 6446, 6556, 6666, 
      6776, 6886, 6996, 7106, 7216, 7326, 7436, 7546, 7656, 7766, 7876, 7986, 
      8096, 8206, 8316, 8426, 8536, 8646, 8756, 8866, 8976, 9086, 9196, 9306, 
      9416, 9526, 9636, 9746, 9856, 9966, 10076, 10186, 10296, 10406, 10516, 
      10626, 10736, 10846, 10956, 11066, 11176, 11286, 11396, 11506, 11616, 
      11726, 11836, 11946, 12056, 12166, 12276, 12386, 12496, 12606, 12716, 
      12826, 12936, 13046, 13156, 13266, 13376, 13486, 13596, 13706, 13816, 
      13926, 14036, 14146, 14256, 14366, 14476, 14586, 14696, 14807, 14919, 
      15032, 15146, 15261, 15377, 15494, 15612, 15731, 15851, 
      15972}, CompressedData["
1:eJy920VzVUEQhuF74wZxgbhAXCAuxA3iAnEhbhAXiBsu+ckEO98kmaqpkZ7V
Wb67p2pOdydPrfZOebhcrplql8t9/XV7eHp5+/j6+QcE3rsfHBIaFh4RGRX9
4GFsXHxCYlJySuqjx+kZmVnZObl5+U+eFhYVl5SWlVdUPquuqa2rb2hsam55
/qKtvaOzq7unt+/lq4HBoeGR0bHxiddT0zOzc/MLi0vLb96urq1vbG5t7+y+
e79/cHh0fHJ6do5wEMIxCKchXIBwFcKtCPcjPInwCsJ7CDvdQHSj0U1FNx/d
SnRb0O1DdwLdZXR30f2fDUA2CtkUZPOQrUC2GdleZMeRXUJ2B9l/VX9UI1FN
RjUX1XJUm1DtQXUM1UVUt1H9G/VDNALRJERzEC1DtBHRbkRHEV1AdAvRP01f
NMPRTEQzG81SNBvQ7EJzBM15NDfR/J30QTIMyQQks5AsQbIeyU4kh5GcQ3ID
yeuiN4qhKMajmIliMYp1KHagOITiLIrrKLo9vBAMQTAOwQwEixCsRbAdwUEE
ZxBcQ9DtiV4werHopaNXiF4Nem3oDaA3jd4qeqAvCPTFgL400FcA+qpAXyvo
6wd9k6BvBfTt2ZXWKq9XNlH9eWXR0h9OzYKh352aBTy/OTULbH51ahbE/OLU
LGj52alZoPKTU7MA5UenZsHJD6hZcPISOXonL1Cjd/IcNXonz1Cjd/IUNXon
T1Cjd/IYNXonj1Cjd/IQNXonD1Cjd3IfNXon8Wi+sOAk80and5J5mNM7yTzH
6Z1kXuH0TjKvb3onmWc3vZPMg5veSeatTe8k886md5J5ZNM7yTyx6Z1kXtgW
nOT/yyRykv8Dk8hJ/m9LIif5fyuJnOT/pSRykv97kshJ/o9JIif5/ySJnOT/
jyRykv8zkshJ/q9IIif5fyKpnBTOfEw6KRz0mHRSON4x6aRwqmPSSeE0x6ST
wjGOSSeFAxyTTgpnNyadFM5tTDopHNqYdFI4sjHppHBiY9RJmdm4tpMyA3Ft
J2XG4NpOyky/tZ2UmXprOykz7tZ2UmbQre2kzIxb20mZ+ba2kzLDbW0nZUbb
2k7KTLb1nVTcIVJzUnFxSM1JxXUhNScVt4TUnFTcDlJzUnEtSM1JxYUgNScV
d4HUnFTcA1JzUnEJSM1JxRUgNScVN4AUndTftZRwUn/BUsJJ/bVKCSf1tykl
nNTfopRwUn99UsJJ/cVJCSf1dyYlnNTfl5RwUn9ZUsJJ/VVJCSf1NyVlnDS6
ky5y0ugiushJo+vnIieNbp2LnDS6bS5y0uiauchJowvmIieN7paLnDS6Vy5y
0uhSuchJoyvlIieNbpQLnaS63eE6SXWww3WS6kyH6yTVdQ7XSaqrHK6TVOc4
XCepDnG4TlLd4HCdpLq/4TpJdXzDdZLq9IbrJNXlDd9JCzeOjJMWLhtZKC1c
NN6g0sIt400tLdwx3hLTwhXjbTYtXDHewdPCHeNdQy3cMnIstXDRyEPVwmUj
l1cLN458aX8BdcSunQ==
      "]}, CompressedData["
1:eJztwTERACAMBLBHCkYqAgkczPjfaoIxydxv3ZHkVAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAPGrgOAk0=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158469443846`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnN1v00gQwPNNUa7qldKekRCqkBBCCCFOkHceuHs6CfHKC23Uqnk43Ynj
/+/Fa+qJNzvOfsyMpxtXkIzW3vi3ju3Z3yj2Xxc/bq7+vvixWl6c//n94t+b
1fK/8z/++b5uGg8Hg+HN+v/l+aCMbweDu5fb9b/bVflStuyOi/JtXHZd1tG4
jEZldFm3jeo2WPql2WNgQhOV/0eOtsfVRp84Fl1ZbfVGrfW+mddJo82xKtb9
syfp/aGvPmxc96v6rv9OleDO7O5tH3OGQy/rA2/kxrqkoG123z7odwEOpvYH
8O5dT96ibrhu7kY4z62O1nluoknYmRJ6MdqMH5VvZvSfypdHG62D8e3mxqaO
tmtH28rR9tXz837tN19//Rt/vtf9seNDzevH6hhuLghMKsOKyvcqHsHXXJCy
oRZW9Do+cTCYtqJsGpVnyW9lNK4j01Z4Rh59n5bRzHNXoOMYbY49KCmYY3J6
e7dUdtyjeuOTcPLx5ph3Xapdp57Z5mnCMK0Bt6/3rP2L3jWAvRytdaj7pkjX
Jaez4W9dgIOy/c+Lmis7mY84SR2H7944x77Qlvx5TwiPebkgep4v4REvF/R9
kS/hIS8X9H2ZL+GclwuWvsqX8CEvF0Sv8yWc8XJB9KYn7I5wwssF0dt8CUe8
XND395wJuZCg7/ss4Zhz8CI3LmaDNlzmfMsOjtmDDdykh5OGY1bz6kTNEo5Z
yD+U0cMs4Zg13Hyt8yzhmOXbwB1mCces3AbuKEs4Zo01cMdZwjHLq4E76eGk
4Zh92uTWs0zhaGmstFrkxsWXR2FpTlwsAm1x6bJ7KjgWR7XgdAk0FRyLoy6a
6+kS6L2AYxHoRXM9XXZPBcci0B+abbrsngqORaCt65wuu6eCYxFoC06X3VPB
sQi0BafL7qngWBzVSl+6BJoKjsVRrfSlS6D3BI6CBk2rRW5cfHkUopy4CAUa
5dJg9/RwhAKNwmmwe3o4QkddYOtpEGh6OEJHXWDraRDoPYMjFOgFtp4Gu6eH
IxRo1wzERBrsPhpu+x5i15Ml0HsDCTUbzSMbmu2+MdlF3HLr410Pj1v6R0rG
3SQIHdSwjIZVxLpXCEsH6F5BSwcq9grcFC22L+z7oRUeF4SFEXTOhBZGVBwX
+e0V6zZr13NK0KxBWFFBJ1sbFRX33dQu4p9jkigF+YB3UXJB52BFzyXDxTcZ
hCgnruQqkAdXdyUqTrjkKhA6M4GouxIVJ1xyFQiF01Ci4oRLLrSgcx0NVSBO
uORCCzrlgPW6qwLtLVxyFah9BmKi7kpUnHDJRRiP3NrdD1A44ZKLEx65tbsf
oHDCJUu7R27t7gconHDJ7uyRW7v7jQcvXChNUOYqcuPiS1UQ9Vz8XJHu7JE4
IZIWexm4SHcOgpMWexm4SHf2mHJ0J/YycJHu7DHl6E7sZeAi9dRjygFLpd1Z
Bi5ST30nHyaSduceLtadgyYk0mIvAxfpzkG5VVrsZeAi3Tkot0qLvQxcpDsH
5VZpsZeCC9hKeFotcuPiS1UQ5cQV5KhBCQoiGYHu4WIFOhJOxu6l4YIEOmje
IW330nBBAh0075C2e2m4IIEOmnfAUhm7l4YLctTwGYiJZARaGi7IUSMnJDIC
3cPFCnRkbpWxe2m4IIGOzK0ydi8NFyTQkblVxu7l4fy2EplWi9y4+PIoRDlx
eTiqiyvogssp0N3BeThqZGqHiFOge7hYgY6cd8jYfXdwHgIdOe+Qsfvu4DwE
OnLeAUs57b47OA+BTpmBmIjT7ruD83DU5AkJp0B3B+fhqMnpi1Og9xvO3E9u
7k33uMfcQ6qT8y0q1RbkQcV/AMuqhvITrbbyf8oTAzjH5Ec/jRgsPDbDw+iT
k/1ZvTWz3SnjwCKLFjRDJPgWZ/UxjDwwYoKPsg03edpRwADdj3dAeB9sjGs9
SKtnzJcpNcypPUwDOG4d5oPm7mi/YvLNdCBCH0ViQR7sSEddsUaXPdq5gq7V
9DUZDXBoZSF5tggRfdlDAxxaWUiekHGWPXq4HXBo2SN5isdZk9EAh5Y9kqdV
sJS+JqMBDi170ExkTERfk9EAh5Y9CCck9DUZDXBoZYEwt9KXPTTAoeUAwvRF
/6OGHm4HHFofIMyt9L+40AG3vRXCtFrkxsWXRyHKicsSaF+uoBOCyu51wVkC
TTjvgIjK7nXBHbfC6RJoXXBHDjgaJHqB7uG84Q4xuGQkWEpl97rgLIGmnoGY
iMrudcFZAs0yIaGye11wlkCz5FYqu9cFZzkqS26lEmhdcCMHHHX6ohJobXDb
XISZq+i5ZLj4UihEOXGdOi5iHlxBX3Wa2GuFO/GE607stcIdt8JpEHutcEcO
ODV6qhrusIajRoKlae7cw0XAzZtw1DMQE6WJvVY4cyYxT0jSxF4r3MxxnaPO
FWlirxVu0gqnQey1wo0ccIrcWTEcc+YqcuN6z0ZjRT2cJNy7ECQLLqhHtE/r
J3zL+7VCFG3W+gnf8HIROLZ+wte8XAS2rZ/wFS8XLI1WW/2EL3m5IIqW3J4w
nfAFLxdE0UKun/A5LxdE0Wqun/Ccl4tA0tUQzss3cxs3epP6M15Cp7hv3a5u
EH+pmKu35r3nY030TQzXrfLziJE85eW31qMaCTy1QpYfHl0xSd//5vUjz3cb
89nmDX1Qgavt2tG2crR9RT/P/QSJQ/xCx4PhfZ3ds82XweBT+VLRVMfVKi4u
yjdz5C3rCJ7Uc1m3wbMoYOmXZg/3M0IabY+rjT5xLLqy2uqNWut9qw7RRptj
Vaz7Z0/S+0Nffdi47lf1Xf+dKsGd2d3bPuYMh17WBx7yMJtLCtpm9+2Dfhdg
wFN0SPauJ29RN1w3dyOc51ZH6zw3kSvBtpwpPhegwfB/Bl5TXw==\
\>"]],

Cell[BoxData["\<\"REP1\"\>"], "Print",
 CellChangeTimes->{3.5306158469993877`*^9}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJztxlEJACAUBMEDk1jJCILfVnmRRbCFM7Cwfe6xWpJ63QcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAA+M0B6wgC0A==
   "], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158472744036`*^9}],

Cell[BoxData["\<\"REP2\"\>"], "Print",
 CellChangeTimes->{3.5306158472844043`*^9}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJztxlEJACAUBMEDk1jJCILfVnmRRbCFM7Cwfe6xWpJ63QcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAA+M0B6wgC0A==
   "], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158473484077`*^9}],

Cell[BoxData["\<\"REP3\"\>"], "Print",
 CellChangeTimes->{3.5306158473614087`*^9}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJztxlEJACAUBMEDk1jJCILfVnmRRbCFM7Cwfe6xWpJ63QcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAA+M0B6wgC0A==
   "], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158474234123`*^9}],

Cell[BoxData["\<\"REP4\"\>"], "Print",
 CellChangeTimes->{3.530615847435413*^9}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJztxlEJACAUBMEDk1jJCILfVnmRRbCFM7Cwfe6xWpJ63QcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAA+M0B6wgC0A==
   "], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158474974165`*^9}],

Cell[BoxData["\<\"REP5\"\>"], "Print",
 CellChangeTimes->{3.530615847509417*^9}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJztxlEJACAUBMEDk1jJCILfVnmRRbCFM7Cwfe6xWpJ63QcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAA+M0B6wgC0A==
   "], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158475714207`*^9}],

Cell[BoxData["\<\"REP6\"\>"], "Print",
 CellChangeTimes->{3.530615847583421*^9}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJztxlEJACAUBMEDk1jJCILfVnmRRbCFM7Cwfe6xWpJ63QcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAA+M0B6wgC0A==
   "], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.530615847645425*^9}],

Cell[BoxData["\<\"IMM1\"\>"], "Print",
 CellChangeTimes->{3.530615847657426*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.53061584773543*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData["\<\"IMM2\"\>"], "Print",
 CellChangeTimes->{3.5306158477964334`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.530615848102451*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData["\<\"IMM3\"\>"], "Print",
 CellChangeTimes->{3.530615848161454*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 143, 286, 429, 572, 715, 858, 1001, 1144, 1287, 1430, 1573, 1716, 
      1859, 2002, 2145, 2288, 2431, 2574, 2717, 2860, 3003, 3146, 3289, 3432, 
      3575, 3718, 3861, 4004, 4147, 4290, 4433, 4576, 4719, 4862, 5005, 5148, 
      5291, 5434, 5577, 5720, 5863, 6006, 6149, 6292, 6435, 6578, 6721, 6864, 
      7007, 7150, 7293, 7436, 7579, 7722, 7865, 8008, 8151, 8294, 8437, 8580, 
      8723, 8866, 9009, 9152, 9295, 9438, 9581, 9724, 9867, 10010, 10153, 
      10296, 10439, 10582, 10725, 10868, 11011, 11154, 11297, 11440, 11583, 
      11726, 11869, 12012, 12155, 12298, 12441, 12584, 12727, 12870, 13013, 
      13156, 13299, 13442, 13585, 13728, 13871, 14014, 14157, 14300, 14443, 
      14586, 14729, 14872, 15015, 15158, 15301, 15444, 15587, 15730, 15873, 
      16016, 16159, 16302, 16445, 16588, 16731, 16874, 17017, 17160, 17303, 
      17446, 17589, 17732, 17875, 18018, 18161, 18304, 18447, 18590, 18733, 
      18876, 19019, 19162, 19305, 19448, 19591, 19734, 19877, 20020, 20163, 
      20306, 20449, 20592}, CompressedData["
1:eJzN3FVDVFEUBeALdncnIgaoqNiFoCAGiqiEzZhYoGAn3eBP1tczc+PE3nvt
p3n9HueevdYqyXU154qjKOpuiqKi/79FxbNmz5k7b/6ChYsWL1m6bPmKlatW
r1m7bv2GjZs2b9m6bXvJjtKdZbt279lbXrFv/4HKg4cOVx05euz4iZOnTp85
e676fE3thYt19ZcaLl+5eq3x+o2mm823bt9paW1rv3vv/oOHjx535J48ffb8
xcvOV6/fvH3X1f3+Q0/vx0+fv3z99v3Hz1+///T1DwwODY+Mjo1PTE5Nz+ji
/FXFmVHFmVbFmVLFmVTFmVDFGVfFGVPFGVXFGVHFGVbFGVLFGVTFGVDF6VfF
6VPFyf/3heUU/BmEcgr/myI5MX+VgZy4f+44TuyHBIwT/12D4iR8ZoE4SV99
GE7iRyiEk/xNjOCkfKIDOGkvBvKc1AcMcU76e4o0J+N5R5iT9doky8l8/BLl
ZL/FSXIsngYFOTYvlXIcq4dTMY7dO64Ux/JZWYhj+8otw7F+dBfh2N8AJDgO
JwkBjsuFhJ/jdLBh57jdj7g5jucsZo7rdY2X43zsY+W43x45OR6nUEaOz2WW
j+N1KGbj+N2tuTieZ3Qmju9Vn4fjHTJg4fhnHjg4AREMBk5IIoSeExRQIeeE
5WWoOYHxHWJOaJqIlhMcbiLlhGetKDkE0S9CDkUSjY5DEowj49Dk9Kg4RLFB
Ig5VipGGQxaqJOHQZTwpOISRUwIOZQI2nEMayA3m0OaDQznEceVADnV6OoxD
HuYO4tBny0M4DFH3AA5H8t6fw1IE8Obw9BJ8OUw1CU8OV2vDj8NWIvHi8HVa
fDiMFRsPDmfjx53DWkBy5vD2oVw5zPUsRw53W8yNw15ec+Lwd+lcOALVPgeO
RNPQniNSfLTmyPQwbTlCtVBLjlRL1Y4jVpq14sh1eG04gpViC45kwzmbI1q4
zuTI9r+zOMJ19AyOdDs+nSNe1k/lyG8HpHEAUwYpHMSyQjIHMvSQyMHsTiRx
QDMYCRzUKkc8BzYSEsvBbZbEcYATKjEc5KJLIQc6MFPAwe7d5HPA8zt5HPQa
kMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQa
kMlBrwGZHPQakMlBrwGZHPQaUB7nH5CUy2w=
      "]}, CompressedData["
1:eJztwTENACAQBLBDCo4+SCBhBv/T22BoO/ddZyR5FQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPhCA2Y8Ams=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.530615848471472*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XtoE0kcB/DN02hbrfWqrc+c+H7S84GICEV6RUQpRUQ8xEtDtTk8r/SK
ICIiIoiIiCAiIiKIiIggIiIiiIiI3CEiIoKIiMgdIiIiiIi57q79bmY7k+zG
xO9srqXdTGd3P/Obyf4mf0yyWZ3q7er8PdWbSaeSrT2p7q5M+s/kz3/09FVF
QoYR6ur760gaZjlrGP2bbN9vNmNuzJrC5QbzIWKemkYpYpbCZqkDdWHUOXvb
xTMMq2iVzL+wpO4Hu9FGya5OVx0adR33q7WNCnWSQ1Wnt3mMNDjR21gE59nn
9v3UaxJu3H16Pma0Oug0LrywPKyOUkQrnj7woi8UoBFzA+UdXY/xNqBisziM
Tp67TnTluVWK+ssUv5NRbrnOfLB632Ju6nJqjUg2t7GYpG6zpC4jqfvFo1c7
2Dye/pwfr/N+RIJa22b7GhZ3+HxRCdlReZ3Fi4hP3PEtDeWJVTmPRyUxRJEd
i8xN2Pwn7jFWZUPh3OB8zdrWRRPL9u91BRbG3qh/OpIbVKHJTnbxOkO1wInI
LKnHq1AzGsfkel69TtiyBCgQ5ICk9fUK8TURZDOa024T2o2qBifPzFh6Z541
wOY/cS2cOejXUC2cWXCqtHBmwKnRwpkGZ4QWzhQ4IyvK+RH5NUoLZxL6NVoL
ZwKcBi2ccXDGauE0whmvhTMGzsSKcurhJLVw6pDvk7VwatGvqVo4w+FM18Kp
hjNTC2cYnNlaOAk4cyvKiSG/5mvhRNCvn7RwQnAWsp0vIBYTic8glhCJTyCW
Bpv4CGIZkfiA7F1OJN6jI81E4h2IFUTiLYgWIvEGRCuReA1iZbCJf5Ajq4jE
K3RkDZF4CaKNSLwA0U4knoNYSySegVgXbOIpiPVE4gkydUP5iYHribJ3mSjX
Tx6juxudhuRLiTI3zyJO/xkeFuHDvqITj/PbdMgshexSWWN/hNg3aR27s+Lo
iti94qjhGD9ExCmtx5gVu2shU/a+FOXM8ADxpfPMDMr3u3xtWTnDSXl/k+R9
EJ3BJv7CbL+FSNxDR34jEndBbCUSd0BsIxK3QXQTiVsgeoJN3ATRSyRuIFO3
E4nr6MgOInENxE4icRXELiJxBcRuInEZxJ5gE5dA7CUSF5Gp+4jEBXRkP5E4
D+IAkTgH4iCROAviULCJMyAOE4nTyJEjROIUOnKUSJwEcYxInABxnEgcB3GC
SBwDcTLYxFEQp4jEEWTqaSJxGB05QyQOgThLJA6COEckDoA4H2xiP4gLRGIf
cuQikdiLjlwiEntAXCYSu0FcIRK7QFwlEjtBXAs2sQPEdSKxHZl6g0j0oiM3
iUQPiFtEohvEbSKxDcSdQBDWapbr/gvKFa6tYO+qWBeVsFtJOPvsCsPn2p+n
lr21ESsiJGfJN4OkvYc6a2+sjM3LRsQVSAlGJI5nTbGMGlXFsgXPzt9OLPKV
TwU9JCcEH/cyUI6ONKKYOyIDF6syoiFi5PnzoxOt3lc9J2GJlyiQzR7YQhNC
GsQDIpEC8ZBIbALxKNjERhCPicQGTERPiMR6dOQpkVgH4hmRWAviOZFoB/Ei
2EQbiJdEYjVy5BWRWIWO/EskVoJ4TSRaQbwhEi0g3hKJFSDeBZtoBvGeSCxH
pn4gEsvQkY9EYimIT0RiCYjPRGIxiC9EYiEI8zD785qV4DQhZbJ2iezMF/tV
9F17SuXMFZ0E25ktOsPYzkzRqWY700VneKU4U0Wnlu1MFvO9ju0kxX7Vs52J
ojOG7YwXnUa2M1Z0xrGdBtGZUClOvZhfk9jOKLFfRd+1p1TOSNGZwnZGiM40
tlMjOjPYTpXozKoUZ6jozGE7cTHf57GdqNivpu/kVJkP1vqbciEwLIoLHFH+
CelqW7YfPN4bVt2GeLBsvbCqqPb6m1pUyqacJWVXA+5PEX9TD6yt19tJfwfb
elAuopbnruLyhegadXL8f+6trkPz1pWfe7d965Ai798/+MUig18sUuZwB79Y
pJyjG/QvFjFC/wHBs9Dc\
\>"]],

Cell[BoxData["\<\"IMM4\"\>"], "Print",
 CellChangeTimes->{3.530615848538476*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 143, 286, 429, 572, 715, 858, 1001, 1144, 1287, 1430, 1573, 1716, 
      1859, 2002, 2145, 2288, 2431, 2574, 2717, 2860, 3003, 3146, 3289, 3432, 
      3575, 3718, 3861, 4004, 4147, 4290, 4433, 4576, 4719, 4862, 5005, 5148, 
      5291, 5434, 5577, 5720, 5863, 6006, 6149, 6292, 6435, 6578, 6721, 6864, 
      7007, 7150, 7293, 7436, 7579, 7722, 7865, 8008, 8151, 8294, 8437, 8580, 
      8723, 8866, 9009, 9152, 9295, 9438, 9581, 9724, 9867, 10010, 10153, 
      10296, 10439, 10582, 10725, 10868, 11011, 11154, 11297, 11440, 11583, 
      11726, 11869, 12012, 12155, 12298, 12441, 12584, 12727, 12870, 13013, 
      13156, 13299, 13442, 13585, 13728, 13871, 14014, 14157, 14300, 14443, 
      14586, 14729, 14872, 15015, 15158, 15301, 15444, 15587, 15730, 15873, 
      16016, 16159, 16302, 16445, 16588, 16731, 16874, 17017, 17160, 17303, 
      17446, 17589, 17732, 17875, 18018, 18161, 18304, 18447, 18590, 18733, 
      18876, 19019, 19162, 19305, 19448, 19591, 19734, 19877, 20020, 20163, 
      20306, 20449, 20592}, CompressedData["
1:eJzN3FVDVFEUBeALdncnIgaoqNiFoCAGiqiEzZhYoGAn3eBP1tczc+PE3nvt
p3n9HueevdYqyXU154qjKOpuiqKi/79FxbNmz5k7b/6ChYsWL1m6bPmKlatW
r1m7bv2GjZs2b9m6bXvJjtKdZbt279lbXrFv/4HKg4cOVx05euz4iZOnTp85
e676fE3thYt19ZcaLl+5eq3x+o2mm823bt9paW1rv3vv/oOHjx535J48ffb8
xcvOV6/fvH3X1f3+Q0/vx0+fv3z99v3Hz1+///T1DwwODY+Mjo1PTE5Nz+ji
/FXFmVHFmVbFmVLFmVTFmVDFGVfFGVPFGVXFGVHFGVbFGVLFGVTFGVDF6VfF
6VPFyf/3heUU/BmEcgr/myI5MX+VgZy4f+44TuyHBIwT/12D4iR8ZoE4SV99
GE7iRyiEk/xNjOCkfKIDOGkvBvKc1AcMcU76e4o0J+N5R5iT9doky8l8/BLl
ZL/FSXIsngYFOTYvlXIcq4dTMY7dO64Ux/JZWYhj+8otw7F+dBfh2N8AJDgO
JwkBjsuFhJ/jdLBh57jdj7g5jucsZo7rdY2X43zsY+W43x45OR6nUEaOz2WW
j+N1KGbj+N2tuTieZ3Qmju9Vn4fjHTJg4fhnHjg4AREMBk5IIoSeExRQIeeE
5WWoOYHxHWJOaJqIlhMcbiLlhGetKDkE0S9CDkUSjY5DEowj49Dk9Kg4RLFB
Ig5VipGGQxaqJOHQZTwpOISRUwIOZQI2nEMayA3m0OaDQznEceVADnV6OoxD
HuYO4tBny0M4DFH3AA5H8t6fw1IE8Obw9BJ8OUw1CU8OV2vDj8NWIvHi8HVa
fDiMFRsPDmfjx53DWkBy5vD2oVw5zPUsRw53W8yNw15ec+Lwd+lcOALVPgeO
RNPQniNSfLTmyPQwbTlCtVBLjlRL1Y4jVpq14sh1eG04gpViC45kwzmbI1q4
zuTI9r+zOMJ19AyOdDs+nSNe1k/lyG8HpHEAUwYpHMSyQjIHMvSQyMHsTiRx
QDMYCRzUKkc8BzYSEsvBbZbEcYATKjEc5KJLIQc6MFPAwe7d5HPA8zt5HPQa
kMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQa
kMlBrwGZHPQakMlBrwGZHPQaUB7nH5CUy2w=
      "]}, CompressedData["
1:eJztwTENACAQBLBDCo4+SCBhBv/T22BoO/ddZyR5FQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPhCA2Y8Ams=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158488914957`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XtoE0kcB/DN02hbrfWqrc+c+H7S84GICEV6RUQpRUQ8xEtDtTk8r/SK
ICIiIoiIiCAiIiKIiIggIiIiiIiI3CEiIoKIiMgdIiIiiIi57q79bmY7k+zG
xO9srqXdTGd3P/Obyf4mf0yyWZ3q7er8PdWbSaeSrT2p7q5M+s/kz3/09FVF
QoYR6ur760gaZjlrGP2bbN9vNmNuzJrC5QbzIWKemkYpYpbCZqkDdWHUOXvb
xTMMq2iVzL+wpO4Hu9FGya5OVx0adR33q7WNCnWSQ1Wnt3mMNDjR21gE59nn
9v3UaxJu3H16Pma0Oug0LrywPKyOUkQrnj7woi8UoBFzA+UdXY/xNqBisziM
Tp67TnTluVWK+ssUv5NRbrnOfLB632Ju6nJqjUg2t7GYpG6zpC4jqfvFo1c7
2Dye/pwfr/N+RIJa22b7GhZ3+HxRCdlReZ3Fi4hP3PEtDeWJVTmPRyUxRJEd
i8xN2Pwn7jFWZUPh3OB8zdrWRRPL9u91BRbG3qh/OpIbVKHJTnbxOkO1wInI
LKnHq1AzGsfkel69TtiyBCgQ5ICk9fUK8TURZDOa024T2o2qBifPzFh6Z541
wOY/cS2cOejXUC2cWXCqtHBmwKnRwpkGZ4QWzhQ4IyvK+RH5NUoLZxL6NVoL
ZwKcBi2ccXDGauE0whmvhTMGzsSKcurhJLVw6pDvk7VwatGvqVo4w+FM18Kp
hjNTC2cYnNlaOAk4cyvKiSG/5mvhRNCvn7RwQnAWsp0vIBYTic8glhCJTyCW
Bpv4CGIZkfiA7F1OJN6jI81E4h2IFUTiLYgWIvEGRCuReA1iZbCJf5Ajq4jE
K3RkDZF4CaKNSLwA0U4knoNYSySegVgXbOIpiPVE4gkydUP5iYHribJ3mSjX
Tx6juxudhuRLiTI3zyJO/xkeFuHDvqITj/PbdMgshexSWWN/hNg3aR27s+Lo
iti94qjhGD9ExCmtx5gVu2shU/a+FOXM8ADxpfPMDMr3u3xtWTnDSXl/k+R9
EJ3BJv7CbL+FSNxDR34jEndBbCUSd0BsIxK3QXQTiVsgeoJN3ATRSyRuIFO3
E4nr6MgOInENxE4icRXELiJxBcRuInEZxJ5gE5dA7CUSF5Gp+4jEBXRkP5E4
D+IAkTgH4iCROAviULCJMyAOE4nTyJEjROIUOnKUSJwEcYxInABxnEgcB3GC
SBwDcTLYxFEQp4jEEWTqaSJxGB05QyQOgThLJA6COEckDoA4H2xiP4gLRGIf
cuQikdiLjlwiEntAXCYSu0FcIRK7QFwlEjtBXAs2sQPEdSKxHZl6g0j0oiM3
iUQPiFtEohvEbSKxDcSdQBDWapbr/gvKFa6tYO+qWBeVsFtJOPvsCsPn2p+n
lr21ESsiJGfJN4OkvYc6a2+sjM3LRsQVSAlGJI5nTbGMGlXFsgXPzt9OLPKV
TwU9JCcEH/cyUI6ONKKYOyIDF6syoiFi5PnzoxOt3lc9J2GJlyiQzR7YQhNC
GsQDIpEC8ZBIbALxKNjERhCPicQGTERPiMR6dOQpkVgH4hmRWAviOZFoB/Ei
2EQbiJdEYjVy5BWRWIWO/EskVoJ4TSRaQbwhEi0g3hKJFSDeBZtoBvGeSCxH
pn4gEsvQkY9EYimIT0RiCYjPRGIxiC9EYiEI8zD785qV4DQhZbJ2iezMF/tV
9F17SuXMFZ0E25ktOsPYzkzRqWY700VneKU4U0Wnlu1MFvO9ju0kxX7Vs52J
ojOG7YwXnUa2M1Z0xrGdBtGZUClOvZhfk9jOKLFfRd+1p1TOSNGZwnZGiM40
tlMjOjPYTpXozKoUZ6jozGE7cTHf57GdqNivpu/kVJkP1vqbciEwLIoLHFH+
CelqW7YfPN4bVt2GeLBsvbCqqPb6m1pUyqacJWVXA+5PEX9TD6yt19tJfwfb
elAuopbnruLyhegadXL8f+6trkPz1pWfe7d965Ai798/+MUig18sUuZwB79Y
pJyjG/QvFjFC/wHBs9Dc\
\>"]],

Cell[BoxData["\<\"IMM5\"\>"], "Print",
 CellChangeTimes->{3.5306158489595003`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.53061584930752*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]],

Cell[BoxData["\<\"IMM6\"\>"], "Print",
 CellChangeTimes->{3.530615849371524*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.530615849412526*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]],

Cell[BoxData["\<\"IMP1\"\>"], "Print",
 CellChangeTimes->{3.5306158494755297`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158498265495`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]],

Cell[BoxData["\<\"IMP2\"\>"], "Print",
 CellChangeTimes->{3.530615849889553*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158499305553`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]],

Cell[BoxData["\<\"IMP3\"\>"], "Print",
 CellChangeTimes->{3.5306158499945593`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0}, {}}, {}}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306158500035596`*^9}],

Cell[BoxData["\<\"IMP4\"\>"], "Print",
 CellChangeTimes->{3.53061585001156*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0}, {}}, {}}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.530615850024561*^9}],

Cell[BoxData["\<\"IMP5\"\>"], "Print",
 CellChangeTimes->{3.5306158500345616`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.530615850076564*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData["\<\"IMP6\"\>"], "Print",
 CellChangeTimes->{3.5306158501375675`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.530615850442585*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData["144"], "Output",
 CellChangeTimes->{3.5306158505095887`*^9}],

Cell[BoxData["20736"], "Output",
 CellChangeTimes->{3.530615850782604*^9}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.5306158507906046`*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.5306158507976055`*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.530615850805606*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.5306158508146057`*^9}],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.5306158508236065`*^9}],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.530615850833607*^9}],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.530615850843608*^9}],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.5306158508546085`*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.530615850865609*^9}],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.53061585087661*^9}],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.5306158508886104`*^9}],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.530615850900611*^9}],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.5306158509126115`*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.5306158509256124`*^9}],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.5306158509396133`*^9}],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.5306158509546137`*^9}],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.530615850969615*^9}],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.530615850984616*^9}],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.5306158509996166`*^9}],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.5306158510156174`*^9}],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.5306158510326185`*^9}],

Cell[BoxData["21"], "Print",
 CellChangeTimes->{3.5306158510496197`*^9}],

Cell[BoxData["22"], "Print",
 CellChangeTimes->{3.5306158510666203`*^9}],

Cell[BoxData["23"], "Print",
 CellChangeTimes->{3.5306158510846214`*^9}],

Cell[BoxData["24"], "Print",
 CellChangeTimes->{3.5306158511016226`*^9}],

Cell[BoxData["25"], "Print",
 CellChangeTimes->{3.5306158511196237`*^9}],

Cell[BoxData["26"], "Print",
 CellChangeTimes->{3.5306158511376247`*^9}],

Cell[BoxData["27"], "Print",
 CellChangeTimes->{3.5306158511566257`*^9}],

Cell[BoxData["28"], "Print",
 CellChangeTimes->{3.5306158511766267`*^9}],

Cell[BoxData["29"], "Print",
 CellChangeTimes->{3.530615851195628*^9}],

Cell[BoxData["30"], "Print",
 CellChangeTimes->{3.530615851213629*^9}],

Cell[BoxData["31"], "Print",
 CellChangeTimes->{3.53061585123063*^9}],

Cell[BoxData["32"], "Print",
 CellChangeTimes->{3.530615851247631*^9}],

Cell[BoxData["33"], "Print",
 CellChangeTimes->{3.5306158512646317`*^9}],

Cell[BoxData["34"], "Print",
 CellChangeTimes->{3.530615851282633*^9}],

Cell[BoxData["35"], "Print",
 CellChangeTimes->{3.530615851299634*^9}],

Cell[BoxData["36"], "Print",
 CellChangeTimes->{3.5306158513176346`*^9}],

Cell[BoxData["37"], "Print",
 CellChangeTimes->{3.5306158513346357`*^9}],

Cell[BoxData["38"], "Print",
 CellChangeTimes->{3.530615851352637*^9}],

Cell[BoxData["39"], "Print",
 CellChangeTimes->{3.530615851370638*^9}],

Cell[BoxData["40"], "Print",
 CellChangeTimes->{3.530615851389639*^9}],

Cell[BoxData["41"], "Print",
 CellChangeTimes->{3.53061585140764*^9}],

Cell[BoxData["42"], "Print",
 CellChangeTimes->{3.530615851427641*^9}],

Cell[BoxData["43"], "Print",
 CellChangeTimes->{3.530615851444642*^9}],

Cell[BoxData["44"], "Print",
 CellChangeTimes->{3.530615851461643*^9}],

Cell[BoxData["45"], "Print",
 CellChangeTimes->{3.530615851478644*^9}],

Cell[BoxData["46"], "Print",
 CellChangeTimes->{3.530615851496645*^9}],

Cell[BoxData["47"], "Print",
 CellChangeTimes->{3.530615851513646*^9}],

Cell[BoxData["48"], "Print",
 CellChangeTimes->{3.5306158515306473`*^9}],

Cell[BoxData["49"], "Print",
 CellChangeTimes->{3.530615851548648*^9}],

Cell[BoxData["50"], "Print",
 CellChangeTimes->{3.5306158515666494`*^9}],

Cell[BoxData["51"], "Print",
 CellChangeTimes->{3.53061585158365*^9}],

Cell[BoxData["52"], "Print",
 CellChangeTimes->{3.530615851601651*^9}],

Cell[BoxData["53"], "Print",
 CellChangeTimes->{3.530615851619652*^9}],

Cell[BoxData["54"], "Print",
 CellChangeTimes->{3.5306158516376534`*^9}],

Cell[BoxData["55"], "Print",
 CellChangeTimes->{3.530615851655654*^9}],

Cell[BoxData["56"], "Print",
 CellChangeTimes->{3.530615851674655*^9}],

Cell[BoxData["57"], "Print",
 CellChangeTimes->{3.5306158516946564`*^9}],

Cell[BoxData["58"], "Print",
 CellChangeTimes->{3.5306158517116575`*^9}],

Cell[BoxData["59"], "Print",
 CellChangeTimes->{3.530615851729658*^9}],

Cell[BoxData["60"], "Print",
 CellChangeTimes->{3.5306158517466593`*^9}],

Cell[BoxData["61"], "Print",
 CellChangeTimes->{3.5306158517636604`*^9}],

Cell[BoxData["62"], "Print",
 CellChangeTimes->{3.5306158517816615`*^9}],

Cell[BoxData["63"], "Print",
 CellChangeTimes->{3.530615851798662*^9}],

Cell[BoxData["64"], "Print",
 CellChangeTimes->{3.5306158518166637`*^9}],

Cell[BoxData["65"], "Print",
 CellChangeTimes->{3.5306158518336644`*^9}],

Cell[BoxData["66"], "Print",
 CellChangeTimes->{3.5306158518516655`*^9}],

Cell[BoxData["67"], "Print",
 CellChangeTimes->{3.530615851869666*^9}],

Cell[BoxData["68"], "Print",
 CellChangeTimes->{3.5306158518876677`*^9}],

Cell[BoxData["69"], "Print",
 CellChangeTimes->{3.5306158519066687`*^9}],

Cell[BoxData["70"], "Print",
 CellChangeTimes->{3.5306158519256697`*^9}],

Cell[BoxData["71"], "Print",
 CellChangeTimes->{3.530615851945671*^9}],

Cell[BoxData["72"], "Print",
 CellChangeTimes->{3.5306158519626713`*^9}],

Cell[BoxData["73"], "Print",
 CellChangeTimes->{3.530615851980673*^9}],

Cell[BoxData["74"], "Print",
 CellChangeTimes->{3.5306158519976735`*^9}],

Cell[BoxData["75"], "Print",
 CellChangeTimes->{3.5306158520156746`*^9}],

Cell[BoxData["76"], "Print",
 CellChangeTimes->{3.5306158520326757`*^9}],

Cell[BoxData["77"], "Print",
 CellChangeTimes->{3.530615852050677*^9}],

Cell[BoxData["78"], "Print",
 CellChangeTimes->{3.530615852068678*^9}],

Cell[BoxData["79"], "Print",
 CellChangeTimes->{3.5306158520866785`*^9}],

Cell[BoxData["80"], "Print",
 CellChangeTimes->{3.53061585210468*^9}],

Cell[BoxData["81"], "Print",
 CellChangeTimes->{3.530615852123681*^9}],

Cell[BoxData["82"], "Print",
 CellChangeTimes->{3.530615852143682*^9}],

Cell[BoxData["83"], "Print",
 CellChangeTimes->{3.530615852160683*^9}],

Cell[BoxData["84"], "Print",
 CellChangeTimes->{3.530615852177684*^9}],

Cell[BoxData["85"], "Print",
 CellChangeTimes->{3.5306158521956854`*^9}],

Cell[BoxData["86"], "Print",
 CellChangeTimes->{3.530615852212686*^9}],

Cell[BoxData["87"], "Print",
 CellChangeTimes->{3.530615852230687*^9}],

Cell[BoxData["88"], "Print",
 CellChangeTimes->{3.5306158522476883`*^9}],

Cell[BoxData["89"], "Print",
 CellChangeTimes->{3.530615852265689*^9}],

Cell[BoxData["90"], "Print",
 CellChangeTimes->{3.53061585228369*^9}],

Cell[BoxData["91"], "Print",
 CellChangeTimes->{3.530615852301691*^9}],

Cell[BoxData["92"], "Print",
 CellChangeTimes->{3.530615852319692*^9}],

Cell[BoxData["93"], "Print",
 CellChangeTimes->{3.530615852337693*^9}],

Cell[BoxData["94"], "Print",
 CellChangeTimes->{3.5306158523576946`*^9}],

Cell[BoxData["95"], "Print",
 CellChangeTimes->{3.5306158523766956`*^9}],

Cell[BoxData["96"], "Print",
 CellChangeTimes->{3.530615852394696*^9}],

Cell[BoxData["97"], "Print",
 CellChangeTimes->{3.530615852412698*^9}],

Cell[BoxData["98"], "Print",
 CellChangeTimes->{3.5306158524296985`*^9}],

Cell[BoxData["99"], "Print",
 CellChangeTimes->{3.5306158524476995`*^9}],

Cell[BoxData["100"], "Print",
 CellChangeTimes->{3.5306158524657*^9}],

Cell[BoxData["101"], "Print",
 CellChangeTimes->{3.5306158524837017`*^9}],

Cell[BoxData["102"], "Print",
 CellChangeTimes->{3.5306158525017023`*^9}],

Cell[BoxData["103"], "Print",
 CellChangeTimes->{3.530615852519704*^9}],

Cell[BoxData["104"], "Print",
 CellChangeTimes->{3.5306158525377045`*^9}],

Cell[BoxData["105"], "Print",
 CellChangeTimes->{3.5306158525567055`*^9}],

Cell[BoxData["106"], "Print",
 CellChangeTimes->{3.530615852576707*^9}],

Cell[BoxData["107"], "Print",
 CellChangeTimes->{3.530615852594708*^9}],

Cell[BoxData["108"], "Print",
 CellChangeTimes->{3.5306158526117086`*^9}],

Cell[BoxData["109"], "Print",
 CellChangeTimes->{3.53061585262971*^9}],

Cell[BoxData["110"], "Print",
 CellChangeTimes->{3.530615852646711*^9}],

Cell[BoxData["111"], "Print",
 CellChangeTimes->{3.530615852664712*^9}],

Cell[BoxData["112"], "Print",
 CellChangeTimes->{3.5306158526827126`*^9}],

Cell[BoxData["113"], "Print",
 CellChangeTimes->{3.530615852700714*^9}],

Cell[BoxData["114"], "Print",
 CellChangeTimes->{3.5306158527187147`*^9}],

Cell[BoxData["115"], "Print",
 CellChangeTimes->{3.5306158527377157`*^9}],

Cell[BoxData["116"], "Print",
 CellChangeTimes->{3.5306158527557173`*^9}],

Cell[BoxData["117"], "Print",
 CellChangeTimes->{3.530615852775718*^9}],

Cell[BoxData["118"], "Print",
 CellChangeTimes->{3.530615852792719*^9}],

Cell[BoxData["119"], "Print",
 CellChangeTimes->{3.5306158528107204`*^9}],

Cell[BoxData["120"], "Print",
 CellChangeTimes->{3.530615852827721*^9}],

Cell[BoxData["121"], "Print",
 CellChangeTimes->{3.530615852845722*^9}],

Cell[BoxData["122"], "Print",
 CellChangeTimes->{3.5306158528627234`*^9}],

Cell[BoxData["123"], "Print",
 CellChangeTimes->{3.530615852880724*^9}],

Cell[BoxData["124"], "Print",
 CellChangeTimes->{3.5306158528987255`*^9}],

Cell[BoxData["125"], "Print",
 CellChangeTimes->{3.530615852916726*^9}],

Cell[BoxData["126"], "Print",
 CellChangeTimes->{3.530615852934727*^9}],

Cell[BoxData["127"], "Print",
 CellChangeTimes->{3.5306158529527283`*^9}],

Cell[BoxData["128"], "Print",
 CellChangeTimes->{3.5306158529717293`*^9}],

Cell[BoxData["129"], "Print",
 CellChangeTimes->{3.5306158529907303`*^9}],

Cell[BoxData["130"], "Print",
 CellChangeTimes->{3.5306158530107317`*^9}],

Cell[BoxData["131"], "Print",
 CellChangeTimes->{3.530615853027733*^9}],

Cell[BoxData["132"], "Print",
 CellChangeTimes->{3.5306158530457335`*^9}],

Cell[BoxData["133"], "Print",
 CellChangeTimes->{3.530615853063735*^9}],

Cell[BoxData["134"], "Print",
 CellChangeTimes->{3.5306158530807357`*^9}],

Cell[BoxData["135"], "Print",
 CellChangeTimes->{3.530615853098737*^9}],

Cell[BoxData["136"], "Print",
 CellChangeTimes->{3.530615853117738*^9}],

Cell[BoxData["137"], "Print",
 CellChangeTimes->{3.530615853135739*^9}],

Cell[BoxData["138"], "Print",
 CellChangeTimes->{3.5306158531547403`*^9}],

Cell[BoxData["139"], "Print",
 CellChangeTimes->{3.5306158531747413`*^9}],

Cell[BoxData["140"], "Print",
 CellChangeTimes->{3.5306158531927423`*^9}],

Cell[BoxData["141"], "Print",
 CellChangeTimes->{3.5306158532097435`*^9}],

Cell[BoxData["142"], "Print",
 CellChangeTimes->{3.5306158532267437`*^9}],

Cell[BoxData["143"], "Print",
 CellChangeTimes->{3.5306158532447453`*^9}],

Cell[BoxData["144"], "Print",
 CellChangeTimes->{3.530615853262746*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "M", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"7", ",", 
     RowBox[{"{", 
      RowBox[{"n", "^", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "^", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"idx", "=", 
    RowBox[{"-", 
     RowBox[{"n", "^", "2"}]}]}], ",", " ", 
   RowBox[{"idx", "<", 
    RowBox[{
     RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"idx", "++"}], "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<idx = \>\"", ",", "idx"}], "]"}], "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"jdx", "=", "1"}], ",", 
        RowBox[{"jdx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "+", "idx"}]}], ",", 
        RowBox[{"jdx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"jdx", "-", "idx"}], ",", "jdx"}], "]"}], "]"}], "=", 
          "idx"}], ";"}]}], "\[IndentingNewLine]", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"jdx", "=", "1"}], ",", 
        RowBox[{"jdx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "idx"}]}], ",", 
        RowBox[{"jdx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", 
            RowBox[{"jdx", ",", 
             RowBox[{"jdx", "+", "idx"}]}], "]"}], "]"}], "=", "idx"}], 
         ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "M", "]"}]}], "Input",
 CellChangeTimes->{{3.530478212733158*^9, 3.53047829703998*^9}, {
   3.530478365434892*^9, 3.5304784982154865`*^9}, {3.5304785821382866`*^9, 
   3.53047862590779*^9}, {3.5304787186070924`*^9, 3.5304787589844017`*^9}, {
   3.5304787950334635`*^9, 3.5304788997334523`*^9}, {3.530478967039302*^9, 
   3.5304789737116833`*^9}, {3.5304790494030128`*^9, 
   3.5304790860271077`*^9}, {3.53047912750148*^9, 3.53047917628627*^9}, {
   3.5304792164325666`*^9, 3.5304792499444833`*^9}, {3.5304793965738697`*^9, 
   3.5304794003410854`*^9}, {3.5304795104173813`*^9, 
   3.5304795541468825`*^9}, {3.530479605979847*^9, 3.5304796247179193`*^9}, {
   3.530479656670747*^9, 3.5304796913187284`*^9}, {3.5304797618577633`*^9, 
   3.5304798031471243`*^9}, {3.530479877966404*^9, 3.5304799125903845`*^9}, {
   3.5304799433121414`*^9, 3.5304799495845003`*^9}, {3.5304799834334364`*^9, 
   3.5304799973372316`*^9}, 3.5304806118853817`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "2", "3"},
     {
      RowBox[{"-", "1"}], "0", "1", "2"},
     {
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0", "1"},
     {
      RowBox[{"-", "3"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.530479950431549*^9, {3.530479984916521*^9, 3.530479998955324*^9}, 
   3.5304806129144406`*^9, 3.5304815557973704`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{
   "EXP2PIWTRS", "+", "EXP2PIWTLS", "+", "EXP2PIWBRS", "+", "EXP2PIWBLS"}], 
   "]"}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"8.`", 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"5.12920428618241`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "8.`", 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "8.`", 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"5.12920428618241`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "8.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5305425734513807`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5305425882562275`*^9, 3.5305426758292365`*^9}, {
   3.5305431413688636`*^9, 3.5305431922107716`*^9}, {3.53054350949992*^9, 
   3.5305435295010633`*^9}, {3.530543593187706*^9, 3.530543593534726*^9}, {
   3.5305436840019007`*^9, 3.530543688207141*^9}, {3.530543731619624*^9, 
   3.5305437605452785`*^9}, {3.530543892024799*^9, 3.5305439117069244`*^9}, {
   3.5305440139057703`*^9, 3.530544019609096*^9}, {3.530544580475176*^9, 
   3.5305445869365454`*^9}, 3.530545435792097*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602087490389*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602108053565*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 143, 286, 429, 572, 715, 858, 1001, 1144, 1287, 1430, 1573, 1716, 
      1859, 2002, 2145, 2288, 2431, 2574, 2717, 2860, 3003, 3146, 3289, 3432, 
      3575, 3718, 3861, 4004, 4147, 4290, 4433, 4576, 4719, 4862, 5005, 5148, 
      5291, 5434, 5577, 5720, 5863, 6006, 6149, 6292, 6435, 6578, 6721, 6864, 
      7007, 7150, 7293, 7436, 7579, 7722, 7865, 8008, 8151, 8294, 8437, 8580, 
      8723, 8866, 9009, 9152, 9295, 9438, 9581, 9724, 9867, 10010, 10153, 
      10296, 10439, 10582, 10725, 10868, 11011, 11154, 11297, 11440, 11583, 
      11726, 11869, 12012, 12155, 12298, 12441, 12584, 12727, 12870, 13013, 
      13156, 13299, 13442, 13585, 13728, 13871, 14014, 14157, 14300, 14443, 
      14586, 14729, 14872, 15015, 15158, 15301, 15444, 15587, 15730, 15873, 
      16016, 16159, 16302, 16445, 16588, 16731, 16874, 17017, 17160, 17303, 
      17446, 17589, 17732, 17875, 18018, 18161, 18304, 18447, 18590, 18733, 
      18876, 19019, 19162, 19305, 19448, 19591, 19734, 19877, 20020, 20163, 
      20306, 20449, 20592}, CompressedData["
1:eJzN3FVDVFEUBeALdncnIgaoqNiFoCAGiqiEzZhYoGAn3eBP1tczc+PE3nvt
p3n9HueevdYqyXU154qjKOpuiqKi/79FxbNmz5k7b/6ChYsWL1m6bPmKlatW
r1m7bv2GjZs2b9m6bXvJjtKdZbt279lbXrFv/4HKg4cOVx05euz4iZOnTp85
e676fE3thYt19ZcaLl+5eq3x+o2mm823bt9paW1rv3vv/oOHjx535J48ffb8
xcvOV6/fvH3X1f3+Q0/vx0+fv3z99v3Hz1+///T1DwwODY+Mjo1PTE5Nz+ji
/FXFmVHFmVbFmVLFmVTFmVDFGVfFGVPFGVXFGVHFGVbFGVLFGVTFGVDF6VfF
6VPFyf/3heUU/BmEcgr/myI5MX+VgZy4f+44TuyHBIwT/12D4iR8ZoE4SV99
GE7iRyiEk/xNjOCkfKIDOGkvBvKc1AcMcU76e4o0J+N5R5iT9doky8l8/BLl
ZL/FSXIsngYFOTYvlXIcq4dTMY7dO64Ux/JZWYhj+8otw7F+dBfh2N8AJDgO
JwkBjsuFhJ/jdLBh57jdj7g5jucsZo7rdY2X43zsY+W43x45OR6nUEaOz2WW
j+N1KGbj+N2tuTieZ3Qmju9Vn4fjHTJg4fhnHjg4AREMBk5IIoSeExRQIeeE
5WWoOYHxHWJOaJqIlhMcbiLlhGetKDkE0S9CDkUSjY5DEowj49Dk9Kg4RLFB
Ig5VipGGQxaqJOHQZTwpOISRUwIOZQI2nEMayA3m0OaDQznEceVADnV6OoxD
HuYO4tBny0M4DFH3AA5H8t6fw1IE8Obw9BJ8OUw1CU8OV2vDj8NWIvHi8HVa
fDiMFRsPDmfjx53DWkBy5vD2oVw5zPUsRw53W8yNw15ec+Lwd+lcOALVPgeO
RNPQniNSfLTmyPQwbTlCtVBLjlRL1Y4jVpq14sh1eG04gpViC45kwzmbI1q4
zuTI9r+zOMJ19AyOdDs+nSNe1k/lyG8HpHEAUwYpHMSyQjIHMvSQyMHsTiRx
QDMYCRzUKkc8BzYSEsvBbZbEcYATKjEc5KJLIQc6MFPAwe7d5HPA8zt5HPQa
kMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQa
kMlBrwGZHPQakMlBrwGZHPQaUB7nH5CUy2w=
      "]}, CompressedData["
1:eJztwTENACAQBLBDCo4+SCBhBv/T22BoO/ddZyR5FQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPhCA2Y8Ams=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602127210661*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XtoE0kcB/DN02hbrfWqrc+c+H7S84GICEV6RUQpRUQ8xEtDtTk8r/SK
ICIiIoiIiCAiIiKIiIggIiIiiIiI3CEiIoKIiMgdIiIiiIi57q79bmY7k+zG
xO9srqXdTGd3P/Obyf4mf0yyWZ3q7er8PdWbSaeSrT2p7q5M+s/kz3/09FVF
QoYR6ur760gaZjlrGP2bbN9vNmNuzJrC5QbzIWKemkYpYpbCZqkDdWHUOXvb
xTMMq2iVzL+wpO4Hu9FGya5OVx0adR33q7WNCnWSQ1Wnt3mMNDjR21gE59nn
9v3UaxJu3H16Pma0Oug0LrywPKyOUkQrnj7woi8UoBFzA+UdXY/xNqBisziM
Tp67TnTluVWK+ssUv5NRbrnOfLB632Ju6nJqjUg2t7GYpG6zpC4jqfvFo1c7
2Dye/pwfr/N+RIJa22b7GhZ3+HxRCdlReZ3Fi4hP3PEtDeWJVTmPRyUxRJEd
i8xN2Pwn7jFWZUPh3OB8zdrWRRPL9u91BRbG3qh/OpIbVKHJTnbxOkO1wInI
LKnHq1AzGsfkel69TtiyBCgQ5ICk9fUK8TURZDOa024T2o2qBifPzFh6Z541
wOY/cS2cOejXUC2cWXCqtHBmwKnRwpkGZ4QWzhQ4IyvK+RH5NUoLZxL6NVoL
ZwKcBi2ccXDGauE0whmvhTMGzsSKcurhJLVw6pDvk7VwatGvqVo4w+FM18Kp
hjNTC2cYnNlaOAk4cyvKiSG/5mvhRNCvn7RwQnAWsp0vIBYTic8glhCJTyCW
Bpv4CGIZkfiA7F1OJN6jI81E4h2IFUTiLYgWIvEGRCuReA1iZbCJf5Ajq4jE
K3RkDZF4CaKNSLwA0U4knoNYSySegVgXbOIpiPVE4gkydUP5iYHribJ3mSjX
Tx6juxudhuRLiTI3zyJO/xkeFuHDvqITj/PbdMgshexSWWN/hNg3aR27s+Lo
iti94qjhGD9ExCmtx5gVu2shU/a+FOXM8ADxpfPMDMr3u3xtWTnDSXl/k+R9
EJ3BJv7CbL+FSNxDR34jEndBbCUSd0BsIxK3QXQTiVsgeoJN3ATRSyRuIFO3
E4nr6MgOInENxE4icRXELiJxBcRuInEZxJ5gE5dA7CUSF5Gp+4jEBXRkP5E4
D+IAkTgH4iCROAviULCJMyAOE4nTyJEjROIUOnKUSJwEcYxInABxnEgcB3GC
SBwDcTLYxFEQp4jEEWTqaSJxGB05QyQOgThLJA6COEckDoA4H2xiP4gLRGIf
cuQikdiLjlwiEntAXCYSu0FcIRK7QFwlEjtBXAs2sQPEdSKxHZl6g0j0oiM3
iUQPiFtEohvEbSKxDcSdQBDWapbr/gvKFa6tYO+qWBeVsFtJOPvsCsPn2p+n
lr21ESsiJGfJN4OkvYc6a2+sjM3LRsQVSAlGJI5nTbGMGlXFsgXPzt9OLPKV
TwU9JCcEH/cyUI6ONKKYOyIDF6syoiFi5PnzoxOt3lc9J2GJlyiQzR7YQhNC
GsQDIpEC8ZBIbALxKNjERhCPicQGTERPiMR6dOQpkVgH4hmRWAviOZFoB/Ei
2EQbiJdEYjVy5BWRWIWO/EskVoJ4TSRaQbwhEi0g3hKJFSDeBZtoBvGeSCxH
pn4gEsvQkY9EYimIT0RiCYjPRGIxiC9EYiEI8zD785qV4DQhZbJ2iezMF/tV
9F17SuXMFZ0E25ktOsPYzkzRqWY700VneKU4U0Wnlu1MFvO9ju0kxX7Vs52J
ojOG7YwXnUa2M1Z0xrGdBtGZUClOvZhfk9jOKLFfRd+1p1TOSNGZwnZGiM40
tlMjOjPYTpXozKoUZ6jozGE7cTHf57GdqNivpu/kVJkP1vqbciEwLIoLHFH+
CelqW7YfPN4bVt2GeLBsvbCqqPb6m1pUyqacJWVXA+5PEX9TD6yt19tJfwfb
elAuopbnruLyhegadXL8f+6trkPz1pWfe7d965Ai798/+MUig18sUuZwB79Y
pJyjG/QvFjFC/wHBs9Dc\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 143, 286, 429, 572, 715, 858, 1001, 1144, 1287, 1430, 1573, 1716, 
      1859, 2002, 2145, 2288, 2431, 2574, 2717, 2860, 3003, 3146, 3289, 3432, 
      3575, 3718, 3861, 4004, 4147, 4290, 4433, 4576, 4719, 4862, 5005, 5148, 
      5291, 5434, 5577, 5720, 5863, 6006, 6149, 6292, 6435, 6578, 6721, 6864, 
      7007, 7150, 7293, 7436, 7579, 7722, 7865, 8008, 8151, 8294, 8437, 8580, 
      8723, 8866, 9009, 9152, 9295, 9438, 9581, 9724, 9867, 10010, 10153, 
      10296, 10439, 10582, 10725, 10868, 11011, 11154, 11297, 11440, 11583, 
      11726, 11869, 12012, 12155, 12298, 12441, 12584, 12727, 12870, 13013, 
      13156, 13299, 13442, 13585, 13728, 13871, 14014, 14157, 14300, 14443, 
      14586, 14729, 14872, 15015, 15158, 15301, 15444, 15587, 15730, 15873, 
      16016, 16159, 16302, 16445, 16588, 16731, 16874, 17017, 17160, 17303, 
      17446, 17589, 17732, 17875, 18018, 18161, 18304, 18447, 18590, 18733, 
      18876, 19019, 19162, 19305, 19448, 19591, 19734, 19877, 20020, 20163, 
      20306, 20449, 20592}, CompressedData["
1:eJzN3FVDVFEUBeALdncnIgaoqNiFoCAGiqiEzZhYoGAn3eBP1tczc+PE3nvt
p3n9HueevdYqyXU154qjKOpuiqKi/79FxbNmz5k7b/6ChYsWL1m6bPmKlatW
r1m7bv2GjZs2b9m6bXvJjtKdZbt279lbXrFv/4HKg4cOVx05euz4iZOnTp85
e676fE3thYt19ZcaLl+5eq3x+o2mm823bt9paW1rv3vv/oOHjx535J48ffb8
xcvOV6/fvH3X1f3+Q0/vx0+fv3z99v3Hz1+///T1DwwODY+Mjo1PTE5Nz+ji
/FXFmVHFmVbFmVLFmVTFmVDFGVfFGVPFGVXFGVHFGVbFGVLFGVTFGVDF6VfF
6VPFyf/3heUU/BmEcgr/myI5MX+VgZy4f+44TuyHBIwT/12D4iR8ZoE4SV99
GE7iRyiEk/xNjOCkfKIDOGkvBvKc1AcMcU76e4o0J+N5R5iT9doky8l8/BLl
ZL/FSXIsngYFOTYvlXIcq4dTMY7dO64Ux/JZWYhj+8otw7F+dBfh2N8AJDgO
JwkBjsuFhJ/jdLBh57jdj7g5jucsZo7rdY2X43zsY+W43x45OR6nUEaOz2WW
j+N1KGbj+N2tuTieZ3Qmju9Vn4fjHTJg4fhnHjg4AREMBk5IIoSeExRQIeeE
5WWoOYHxHWJOaJqIlhMcbiLlhGetKDkE0S9CDkUSjY5DEowj49Dk9Kg4RLFB
Ig5VipGGQxaqJOHQZTwpOISRUwIOZQI2nEMayA3m0OaDQznEceVADnV6OoxD
HuYO4tBny0M4DFH3AA5H8t6fw1IE8Obw9BJ8OUw1CU8OV2vDj8NWIvHi8HVa
fDiMFRsPDmfjx53DWkBy5vD2oVw5zPUsRw53W8yNw15ec+Lwd+lcOALVPgeO
RNPQniNSfLTmyPQwbTlCtVBLjlRL1Y4jVpq14sh1eG04gpViC45kwzmbI1q4
zuTI9r+zOMJ19AyOdDs+nSNe1k/lyG8HpHEAUwYpHMSyQjIHMvSQyMHsTiRx
QDMYCRzUKkc8BzYSEsvBbZbEcYATKjEc5KJLIQc6MFPAwe7d5HPA8zt5HPQa
kMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQa
kMlBrwGZHPQakMlBrwGZHPQaUB7nH5CUy2w=
      "]}, CompressedData["
1:eJztwTENACAQBLBDCo4+SCBhBv/T22BoO/ddZyR5FQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPhCA2Y8Ams=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.5306021484968786`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XtoE0kcB/DN02hbrfWqrc+c+H7S84GICEV6RUQpRUQ8xEtDtTk8r/SK
ICIiIoiIiCAiIiKIiIggIiIiiIiI3CEiIoKIiMgdIiIiiIi57q79bmY7k+zG
xO9srqXdTGd3P/Obyf4mf0yyWZ3q7er8PdWbSaeSrT2p7q5M+s/kz3/09FVF
QoYR6ur760gaZjlrGP2bbN9vNmNuzJrC5QbzIWKemkYpYpbCZqkDdWHUOXvb
xTMMq2iVzL+wpO4Hu9FGya5OVx0adR33q7WNCnWSQ1Wnt3mMNDjR21gE59nn
9v3UaxJu3H16Pma0Oug0LrywPKyOUkQrnj7woi8UoBFzA+UdXY/xNqBisziM
Tp67TnTluVWK+ssUv5NRbrnOfLB632Ju6nJqjUg2t7GYpG6zpC4jqfvFo1c7
2Dye/pwfr/N+RIJa22b7GhZ3+HxRCdlReZ3Fi4hP3PEtDeWJVTmPRyUxRJEd
i8xN2Pwn7jFWZUPh3OB8zdrWRRPL9u91BRbG3qh/OpIbVKHJTnbxOkO1wInI
LKnHq1AzGsfkel69TtiyBCgQ5ICk9fUK8TURZDOa024T2o2qBifPzFh6Z541
wOY/cS2cOejXUC2cWXCqtHBmwKnRwpkGZ4QWzhQ4IyvK+RH5NUoLZxL6NVoL
ZwKcBi2ccXDGauE0whmvhTMGzsSKcurhJLVw6pDvk7VwatGvqVo4w+FM18Kp
hjNTC2cYnNlaOAk4cyvKiSG/5mvhRNCvn7RwQnAWsp0vIBYTic8glhCJTyCW
Bpv4CGIZkfiA7F1OJN6jI81E4h2IFUTiLYgWIvEGRCuReA1iZbCJf5Ajq4jE
K3RkDZF4CaKNSLwA0U4knoNYSySegVgXbOIpiPVE4gkydUP5iYHribJ3mSjX
Tx6juxudhuRLiTI3zyJO/xkeFuHDvqITj/PbdMgshexSWWN/hNg3aR27s+Lo
iti94qjhGD9ExCmtx5gVu2shU/a+FOXM8ADxpfPMDMr3u3xtWTnDSXl/k+R9
EJ3BJv7CbL+FSNxDR34jEndBbCUSd0BsIxK3QXQTiVsgeoJN3ATRSyRuIFO3
E4nr6MgOInENxE4icRXELiJxBcRuInEZxJ5gE5dA7CUSF5Gp+4jEBXRkP5E4
D+IAkTgH4iCROAviULCJMyAOE4nTyJEjROIUOnKUSJwEcYxInABxnEgcB3GC
SBwDcTLYxFEQp4jEEWTqaSJxGB05QyQOgThLJA6COEckDoA4H2xiP4gLRGIf
cuQikdiLjlwiEntAXCYSu0FcIRK7QFwlEjtBXAs2sQPEdSKxHZl6g0j0oiM3
iUQPiFtEohvEbSKxDcSdQBDWapbr/gvKFa6tYO+qWBeVsFtJOPvsCsPn2p+n
lr21ESsiJGfJN4OkvYc6a2+sjM3LRsQVSAlGJI5nTbGMGlXFsgXPzt9OLPKV
TwU9JCcEH/cyUI6ONKKYOyIDF6syoiFi5PnzoxOt3lc9J2GJlyiQzR7YQhNC
GsQDIpEC8ZBIbALxKNjERhCPicQGTERPiMR6dOQpkVgH4hmRWAviOZFoB/Ei
2EQbiJdEYjVy5BWRWIWO/EskVoJ4TSRaQbwhEi0g3hKJFSDeBZtoBvGeSCxH
pn4gEsvQkY9EYimIT0RiCYjPRGIxiC9EYiEI8zD785qV4DQhZbJ2iezMF/tV
9F17SuXMFZ0E25ktOsPYzkzRqWY700VneKU4U0Wnlu1MFvO9ju0kxX7Vs52J
ojOG7YwXnUa2M1Z0xrGdBtGZUClOvZhfk9jOKLFfRd+1p1TOSNGZwnZGiM40
tlMjOjPYTpXozKoUZ6jozGE7cTHf57GdqNivpu/kVJkP1vqbciEwLIoLHFH+
CelqW7YfPN4bVt2GeLBsvbCqqPb6m1pUyqacJWVXA+5PEX9TD6yt19tJfwfb
elAuopbnruLyhegadXL8f+6trkPz1pWfe7d965Ai798/+MUig18sUuZwB79Y
pJyjG/QvFjFC/wHBs9Dc\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602168954048*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602189103201*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A1", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A2", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A3", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A4", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A5", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A6", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A7", "=", 
   RowBox[{"A1", "*", "A2", "*", "A3", "*", "A4", "*", "A5", "*", "A6"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"A7", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5305454600144825`*^9, 3.530545483672836*^9}, {
   3.530545513870563*^9, 3.530545621249705*^9}, 3.5306022145696573`*^9, 
   3.5306023970870967`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 121, 241, 360, 478, 595, 711, 826, 940, 1053, 1165, 1276, 1386, 
      1496, 1606, 1716, 1826, 1936, 2046, 2156, 2266, 2376, 2486, 2596, 2706, 
      2816, 2926, 3036, 3146, 3256, 3366, 3476, 3586, 3696, 3806, 3916, 4026, 
      4136, 4246, 4356, 4466, 4576, 4686, 4796, 4906, 5016, 5126, 5236, 5346, 
      5456, 5566, 5676, 5786, 5896, 6006, 6116, 6226, 6336, 6446, 6556, 6666, 
      6776, 6886, 6996, 7106, 7216, 7326, 7436, 7546, 7656, 7766, 7876, 7986, 
      8096, 8206, 8316, 8426, 8536, 8646, 8756, 8866, 8976, 9086, 9196, 9306, 
      9416, 9526, 9636, 9746, 9856, 9966, 10076, 10186, 10296, 10406, 10516, 
      10626, 10736, 10846, 10956, 11066, 11176, 11286, 11396, 11506, 11616, 
      11726, 11836, 11946, 12056, 12166, 12276, 12386, 12496, 12606, 12716, 
      12826, 12936, 13046, 13156, 13266, 13376, 13486, 13596, 13706, 13816, 
      13926, 14036, 14146, 14256, 14366, 14476, 14586, 14696, 14807, 14919, 
      15032, 15146, 15261, 15377, 15494, 15612, 15731, 15851, 
      15972}, CompressedData["
1:eJy920VzVUEQhuF74wZxgbhAXCAuxA3iAnEhbhAXiBsu+ckEO98kmaqpkZ7V
Wb67p2pOdydPrfZOebhcrplql8t9/XV7eHp5+/j6+QcE3rsfHBIaFh4RGRX9
4GFsXHxCYlJySuqjx+kZmVnZObl5+U+eFhYVl5SWlVdUPquuqa2rb2hsam55
/qKtvaOzq7unt+/lq4HBoeGR0bHxiddT0zOzc/MLi0vLb96urq1vbG5t7+y+
e79/cHh0fHJ6do5wEMIxCKchXIBwFcKtCPcjPInwCsJ7CDvdQHSj0U1FNx/d
SnRb0O1DdwLdZXR30f2fDUA2CtkUZPOQrUC2GdleZMeRXUJ2B9l/VX9UI1FN
RjUX1XJUm1DtQXUM1UVUt1H9G/VDNALRJERzEC1DtBHRbkRHEV1AdAvRP01f
NMPRTEQzG81SNBvQ7EJzBM15NDfR/J30QTIMyQQks5AsQbIeyU4kh5GcQ3ID
yeuiN4qhKMajmIliMYp1KHagOITiLIrrKLo9vBAMQTAOwQwEixCsRbAdwUEE
ZxBcQ9DtiV4werHopaNXiF4Nem3oDaA3jd4qeqAvCPTFgL400FcA+qpAXyvo
6wd9k6BvBfTt2ZXWKq9XNlH9eWXR0h9OzYKh352aBTy/OTULbH51ahbE/OLU
LGj52alZoPKTU7MA5UenZsHJD6hZcPISOXonL1Cjd/IcNXonz1Cjd/IUNXon
T1Cjd/IYNXonj1Cjd/IQNXonD1Cjd3IfNXon8Wi+sOAk80and5J5mNM7yTzH
6Z1kXuH0TjKvb3onmWc3vZPMg5veSeatTe8k886md5J5ZNM7yTyx6Z1kXtgW
nOT/yyRykv8Dk8hJ/m9LIif5fyuJnOT/pSRykv97kshJ/o9JIif5/ySJnOT/
jyRykv8zkshJ/q9IIif5fyKpnBTOfEw6KRz0mHRSON4x6aRwqmPSSeE0x6ST
wjGOSSeFAxyTTgpnNyadFM5tTDopHNqYdFI4sjHppHBiY9RJmdm4tpMyA3Ft
J2XG4NpOyky/tZ2UmXprOykz7tZ2UmbQre2kzIxb20mZ+ba2kzLDbW0nZUbb
2k7KTLb1nVTcIVJzUnFxSM1JxXUhNScVt4TUnFTcDlJzUnEtSM1JxYUgNScV
d4HUnFTcA1JzUnEJSM1JxRUgNScVN4AUndTftZRwUn/BUsJJ/bVKCSf1tykl
nNTfopRwUn99UsJJ/cVJCSf1dyYlnNTfl5RwUn9ZUsJJ/VVJCSf1NyVlnDS6
ky5y0ugiushJo+vnIieNbp2LnDS6bS5y0uiauchJowvmIieN7paLnDS6Vy5y
0uhSuchJoyvlIieNbpQLnaS63eE6SXWww3WS6kyH6yTVdQ7XSaqrHK6TVOc4
XCepDnG4TlLd4HCdpLq/4TpJdXzDdZLq9IbrJNXlDd9JCzeOjJMWLhtZKC1c
NN6g0sIt400tLdwx3hLTwhXjbTYtXDHewdPCHeNdQy3cMnIstXDRyEPVwmUj
l1cLN458aX8BdcSunQ==
      "]}, CompressedData["
1:eJztwTERACAMBLBHCkYqAgkczPjfaoIxydxv3ZHkVAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAPGrgOAk0=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306025303717203`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnN1v00gQwPNNUa7qldKekRCqkBBCCCFOkHceuHs6CfHKC23Uqnk43Ynj
/+/Fa+qJNzvOfsyMpxtXkIzW3vi3ju3Z3yj2Xxc/bq7+vvixWl6c//n94t+b
1fK/8z/++b5uGg8Hg+HN+v/l+aCMbweDu5fb9b/bVflStuyOi/JtXHZd1tG4
jEZldFm3jeo2WPql2WNgQhOV/0eOtsfVRp84Fl1ZbfVGrfW+mddJo82xKtb9
syfp/aGvPmxc96v6rv9OleDO7O5tH3OGQy/rA2/kxrqkoG123z7odwEOpvYH
8O5dT96ibrhu7kY4z62O1nluoknYmRJ6MdqMH5VvZvSfypdHG62D8e3mxqaO
tmtH28rR9tXz837tN19//Rt/vtf9seNDzevH6hhuLghMKsOKyvcqHsHXXJCy
oRZW9Do+cTCYtqJsGpVnyW9lNK4j01Z4Rh59n5bRzHNXoOMYbY49KCmYY3J6
e7dUdtyjeuOTcPLx5ph3Xapdp57Z5mnCMK0Bt6/3rP2L3jWAvRytdaj7pkjX
Jaez4W9dgIOy/c+Lmis7mY84SR2H7944x77Qlvx5TwiPebkgep4v4REvF/R9
kS/hIS8X9H2ZL+GclwuWvsqX8CEvF0Sv8yWc8XJB9KYn7I5wwssF0dt8CUe8
XND395wJuZCg7/ss4Zhz8CI3LmaDNlzmfMsOjtmDDdykh5OGY1bz6kTNEo5Z
yD+U0cMs4Zg13Hyt8yzhmOXbwB1mCces3AbuKEs4Zo01cMdZwjHLq4E76eGk
4Zh92uTWs0zhaGmstFrkxsWXR2FpTlwsAm1x6bJ7KjgWR7XgdAk0FRyLoy6a
6+kS6L2AYxHoRXM9XXZPBcci0B+abbrsngqORaCt65wuu6eCYxFoC06X3VPB
sQi0BafL7qngWBzVSl+6BJoKjsVRrfSlS6D3BI6CBk2rRW5cfHkUopy4CAUa
5dJg9/RwhAKNwmmwe3o4QkddYOtpEGh6OEJHXWDraRDoPYMjFOgFtp4Gu6eH
IxRo1wzERBrsPhpu+x5i15Ml0HsDCTUbzSMbmu2+MdlF3HLr410Pj1v6R0rG
3SQIHdSwjIZVxLpXCEsH6F5BSwcq9grcFC22L+z7oRUeF4SFEXTOhBZGVBwX
+e0V6zZr13NK0KxBWFFBJ1sbFRX33dQu4p9jkigF+YB3UXJB52BFzyXDxTcZ
hCgnruQqkAdXdyUqTrjkKhA6M4GouxIVJ1xyFQiF01Ci4oRLLrSgcx0NVSBO
uORCCzrlgPW6qwLtLVxyFah9BmKi7kpUnHDJRRiP3NrdD1A44ZKLEx65tbsf
oHDCJUu7R27t7gconHDJ7uyRW7v7jQcvXChNUOYqcuPiS1UQ9Vz8XJHu7JE4
IZIWexm4SHcOgpMWexm4SHf2mHJ0J/YycJHu7DHl6E7sZeAi9dRjygFLpd1Z
Bi5ST30nHyaSduceLtadgyYk0mIvAxfpzkG5VVrsZeAi3Tkot0qLvQxcpDsH
5VZpsZeCC9hKeFotcuPiS1UQ5cQV5KhBCQoiGYHu4WIFOhJOxu6l4YIEOmje
IW330nBBAh0075C2e2m4IIEOmnfAUhm7l4YLctTwGYiJZARaGi7IUSMnJDIC
3cPFCnRkbpWxe2m4IIGOzK0ydi8NFyTQkblVxu7l4fy2EplWi9y4+PIoRDlx
eTiqiyvogssp0N3BeThqZGqHiFOge7hYgY6cd8jYfXdwHgIdOe+Qsfvu4DwE
OnLeAUs57b47OA+BTpmBmIjT7ruD83DU5AkJp0B3B+fhqMnpi1Og9xvO3E9u
7k33uMfcQ6qT8y0q1RbkQcV/AMuqhvITrbbyf8oTAzjH5Ec/jRgsPDbDw+iT
k/1ZvTWz3SnjwCKLFjRDJPgWZ/UxjDwwYoKPsg03edpRwADdj3dAeB9sjGs9
SKtnzJcpNcypPUwDOG4d5oPm7mi/YvLNdCBCH0ViQR7sSEddsUaXPdq5gq7V
9DUZDXBoZSF5tggRfdlDAxxaWUiekHGWPXq4HXBo2SN5isdZk9EAh5Y9kqdV
sJS+JqMBDi170ExkTERfk9EAh5Y9CCck9DUZDXBoZYEwt9KXPTTAoeUAwvRF
/6OGHm4HHFofIMyt9L+40AG3vRXCtFrkxsWXRyHKicsSaF+uoBOCyu51wVkC
TTjvgIjK7nXBHbfC6RJoXXBHDjgaJHqB7uG84Q4xuGQkWEpl97rgLIGmnoGY
iMrudcFZAs0yIaGye11wlkCz5FYqu9cFZzkqS26lEmhdcCMHHHX6ohJobXDb
XISZq+i5ZLj4UihEOXGdOi5iHlxBX3Wa2GuFO/GE607stcIdt8JpEHutcEcO
ODV6qhrusIajRoKlae7cw0XAzZtw1DMQE6WJvVY4cyYxT0jSxF4r3MxxnaPO
FWlirxVu0gqnQey1wo0ccIrcWTEcc+YqcuN6z0ZjRT2cJNy7ECQLLqhHtE/r
J3zL+7VCFG3W+gnf8HIROLZ+wte8XAS2rZ/wFS8XLI1WW/2EL3m5IIqW3J4w
nfAFLxdE0UKun/A5LxdE0Wqun/Ccl4tA0tUQzss3cxs3epP6M15Cp7hv3a5u
EH+pmKu35r3nY030TQzXrfLziJE85eW31qMaCTy1QpYfHl0xSd//5vUjz3cb
89nmDX1Qgavt2tG2crR9RT/P/QSJQ/xCx4PhfZ3ds82XweBT+VLRVMfVKi4u
yjdz5C3rCJ7Uc1m3wbMoYOmXZg/3M0IabY+rjT5xLLqy2uqNWut9qw7RRptj
Vaz7Z0/S+0Nffdi47lf1Xf+dKsGd2d3bPuYMh17WBx7yMJtLCtpm9+2Dfhdg
wFN0SPauJ29RN1w3dyOc51ZH6zw3kSvBtpwpPhegwfB/Bl5TXw==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", "A7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "A7", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "A7", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"A7", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", 
       RowBox[{"k", "++"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "k", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"k", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Length", "[", "A7", "]"}], "^", "2"}], ")"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "A7", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"A7", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "12"}], ")"}]}]}], ",", 
     RowBox[{"Print", "[", "i", "]"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.530545889259034*^9, 3.530546060904852*^9}, {
   3.530546221687048*^9, 3.530546315055388*^9}, {3.5305493298628254`*^9, 
   3.530549354572239*^9}, {3.5305494444193773`*^9, 3.5305494794013786`*^9}, 
   3.530602597237545*^9}],

Cell[BoxData["144"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.53060254155136*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.53060254155336*^9}],

Cell[BoxData["4764"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.5306025416873674`*^9}],

Cell[BoxData["0.22974537037037038`"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.530602541688368*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602541695368*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025417023687`*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025419883847`*^9}],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025419943852`*^9}],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420013857`*^9}],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420073857`*^9}],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420163865`*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542023387*^9}],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420323873`*^9}],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420413876`*^9}],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542049388*^9}],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542056389*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542063389*^9}],

Cell[BoxData["25"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420703897`*^9}],

Cell[BoxData["37"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.53060254207839*^9}],

Cell[BoxData["49"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.53060254208539*^9}],

Cell[BoxData["61"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420903907`*^9}],

Cell[BoxData["73"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542097391*^9}],

Cell[BoxData["85"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542104391*^9}],

Cell[BoxData["97"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025421123915`*^9}],

Cell[BoxData["109"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025421193924`*^9}],

Cell[BoxData["121"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542125393*^9}],

Cell[BoxData["133"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025421313925`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"REM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BITWISEAND", "=", 
   RowBox[{
   "REM1", "*", "REM2", "*", "REM3", "*", "REM4", "*", "REM5", "*", "REM6", 
    "*", "REP1", "*", "REP2", "*", "REP3", "*", "REP4", "*", "REP5", "*", 
    "REP6", "*", "IMP1", "*", "IMP2", "*", "IMP3", "*", "IMP4", "*", "IMP5", 
    "*", "IMP6", "*", "IMM1", "*", "IMM2", "*", "IMM3", "*", "IMM4", "*", 
    "IMM5", "*", "IMM6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "BITWISEAND", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"BITWISEAND", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", 
       RowBox[{"k", "++"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "k", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"k", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Length", "[", "BITWISEAND", "]"}], "^", "2"}], ")"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BITWISEAND", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "12"}], ")"}]}]}], ",", 
     RowBox[{"Print", "[", "i", "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5306028353091617`*^9, 3.5306029147847075`*^9}, {
  3.530603723561967*^9, 3.5306040155056653`*^9}, {3.5306042312380047`*^9, 
  3.5306042758365555`*^9}, {3.5306054544979706`*^9, 3.5306054572261267`*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.530605424538257*^9}]
}, Open  ]]
},
WindowSize->{1898, 885},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 3683, 107, 137, "Input"],
Cell[CellGroupData[{
Cell[4298, 134, 168, 3, 23, "Print"],
Cell[4469, 139, 167, 3, 23, "Print"],
Cell[4639, 144, 169, 3, 23, "Print"],
Cell[4811, 149, 72, 1, 23, "Print"],
Cell[4886, 152, 167, 3, 23, "Print"],
Cell[5056, 157, 167, 3, 23, "Print"],
Cell[5226, 162, 166, 3, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5441, 171, 57462, 1442, 5735, "Input"],
Cell[62906, 1615, 82, 1, 23, "Print"],
Cell[62991, 1618, 6832, 119, 369, 3810, 68, "CachedBoxData", "BoxData", \
"Output"],
Cell[69826, 1739, 82, 1, 23, "Print"],
Cell[69911, 1742, 6832, 119, 369, 3810, 68, "CachedBoxData", "BoxData", \
"Output"],
Cell[76746, 1863, 82, 1, 23, "Print"],
Cell[76831, 1866, 1512, 30, 369, "Output"],
Cell[78346, 1898, 80, 1, 23, "Print"],
Cell[78429, 1901, 1512, 30, 369, "Output"],
Cell[79944, 1933, 80, 1, 23, "Print"],
Cell[80027, 1936, 6832, 119, 369, 3810, 68, "CachedBoxData", "BoxData", \
"Output"],
Cell[86862, 2057, 82, 1, 23, "Print"],
Cell[86947, 2060, 6832, 119, 369, 3810, 68, "CachedBoxData", "BoxData", \
"Output"],
Cell[93782, 2181, 82, 1, 23, "Print"],
Cell[93867, 2184, 1704, 34, 369, "Output"],
Cell[95574, 2220, 82, 1, 23, "Print"],
Cell[95659, 2223, 1704, 34, 369, "Output"],
Cell[97366, 2259, 82, 1, 23, "Print"],
Cell[97451, 2262, 1704, 34, 369, "Output"],
Cell[99158, 2298, 80, 1, 23, "Print"],
Cell[99241, 2301, 1704, 34, 369, "Output"],
Cell[100948, 2337, 80, 1, 23, "Print"],
Cell[101031, 2340, 1704, 34, 369, "Output"],
Cell[102738, 2376, 80, 1, 23, "Print"],
Cell[102821, 2379, 1702, 34, 369, "Output"],
Cell[104526, 2415, 80, 1, 23, "Print"],
Cell[104609, 2418, 5463, 96, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[110075, 2516, 82, 1, 23, "Print"],
Cell[110160, 2519, 5464, 96, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[115627, 2617, 80, 1, 23, "Print"],
Cell[115710, 2620, 5666, 100, 369, 3532, 63, "CachedBoxData", "BoxData", \
"Output"],
Cell[121379, 2722, 80, 1, 23, "Print"],
Cell[121462, 2725, 5668, 100, 369, 3532, 63, "CachedBoxData", "BoxData", \
"Output"],
Cell[127133, 2827, 82, 1, 23, "Print"],
Cell[127218, 2830, 5329, 95, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"],
Cell[132550, 2927, 80, 1, 23, "Print"],
Cell[132633, 2930, 5330, 95, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"],
Cell[137966, 3027, 82, 1, 23, "Print"],
Cell[138051, 3030, 5332, 95, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"],
Cell[143386, 3127, 80, 1, 23, "Print"],
Cell[143469, 3130, 5332, 95, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"],
Cell[148804, 3227, 82, 1, 23, "Print"],
Cell[148889, 3230, 1512, 30, 369, "Output"],
Cell[150404, 3262, 79, 1, 23, "Print"],
Cell[150486, 3265, 1510, 30, 369, "Output"],
Cell[151999, 3297, 82, 1, 23, "Print"],
Cell[152084, 3300, 5464, 96, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[157551, 3398, 82, 1, 23, "Print"],
Cell[157636, 3401, 5464, 96, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[163103, 3499, 74, 1, 30, "Output"],
Cell[163180, 3502, 74, 1, 30, "Output"],
Cell[163257, 3505, 74, 1, 30, "Output"],
Cell[CellGroupData[{
Cell[163356, 3510, 71, 1, 23, "Print"],
Cell[163430, 3513, 69, 1, 23, "Print"],
Cell[163502, 3516, 71, 1, 23, "Print"],
Cell[163576, 3519, 71, 1, 23, "Print"],
Cell[163650, 3522, 69, 1, 23, "Print"],
Cell[163722, 3525, 69, 1, 23, "Print"],
Cell[163794, 3528, 71, 1, 23, "Print"],
Cell[163868, 3531, 69, 1, 23, "Print"],
Cell[163940, 3534, 68, 1, 23, "Print"],
Cell[164011, 3537, 72, 1, 23, "Print"],
Cell[164086, 3540, 70, 1, 23, "Print"],
Cell[164159, 3543, 72, 1, 23, "Print"],
Cell[164234, 3546, 72, 1, 23, "Print"],
Cell[164309, 3549, 72, 1, 23, "Print"],
Cell[164384, 3552, 72, 1, 23, "Print"],
Cell[164459, 3555, 70, 1, 23, "Print"],
Cell[164532, 3558, 70, 1, 23, "Print"],
Cell[164605, 3561, 72, 1, 23, "Print"],
Cell[164680, 3564, 72, 1, 23, "Print"],
Cell[164755, 3567, 72, 1, 23, "Print"],
Cell[164830, 3570, 72, 1, 23, "Print"],
Cell[164905, 3573, 72, 1, 23, "Print"],
Cell[164980, 3576, 72, 1, 23, "Print"],
Cell[165055, 3579, 72, 1, 23, "Print"],
Cell[165130, 3582, 72, 1, 23, "Print"],
Cell[165205, 3585, 72, 1, 23, "Print"],
Cell[165280, 3588, 72, 1, 23, "Print"],
Cell[165355, 3591, 72, 1, 23, "Print"],
Cell[165430, 3594, 70, 1, 23, "Print"],
Cell[165503, 3597, 70, 1, 23, "Print"],
Cell[165576, 3600, 69, 1, 23, "Print"],
Cell[165648, 3603, 70, 1, 23, "Print"],
Cell[165721, 3606, 72, 1, 23, "Print"],
Cell[165796, 3609, 70, 1, 23, "Print"],
Cell[165869, 3612, 70, 1, 23, "Print"],
Cell[165942, 3615, 72, 1, 23, "Print"],
Cell[166017, 3618, 72, 1, 23, "Print"],
Cell[166092, 3621, 70, 1, 23, "Print"],
Cell[166165, 3624, 70, 1, 23, "Print"],
Cell[166238, 3627, 70, 1, 23, "Print"],
Cell[166311, 3630, 69, 1, 23, "Print"],
Cell[166383, 3633, 70, 1, 23, "Print"],
Cell[166456, 3636, 70, 1, 23, "Print"],
Cell[166529, 3639, 70, 1, 23, "Print"],
Cell[166602, 3642, 70, 1, 23, "Print"],
Cell[166675, 3645, 70, 1, 23, "Print"],
Cell[166748, 3648, 70, 1, 23, "Print"],
Cell[166821, 3651, 72, 1, 23, "Print"],
Cell[166896, 3654, 70, 1, 23, "Print"],
Cell[166969, 3657, 72, 1, 23, "Print"],
Cell[167044, 3660, 69, 1, 23, "Print"],
Cell[167116, 3663, 70, 1, 23, "Print"],
Cell[167189, 3666, 70, 1, 23, "Print"],
Cell[167262, 3669, 72, 1, 23, "Print"],
Cell[167337, 3672, 70, 1, 23, "Print"],
Cell[167410, 3675, 70, 1, 23, "Print"],
Cell[167483, 3678, 72, 1, 23, "Print"],
Cell[167558, 3681, 72, 1, 23, "Print"],
Cell[167633, 3684, 70, 1, 23, "Print"],
Cell[167706, 3687, 72, 1, 23, "Print"],
Cell[167781, 3690, 72, 1, 23, "Print"],
Cell[167856, 3693, 72, 1, 23, "Print"],
Cell[167931, 3696, 70, 1, 23, "Print"],
Cell[168004, 3699, 72, 1, 23, "Print"],
Cell[168079, 3702, 72, 1, 23, "Print"],
Cell[168154, 3705, 72, 1, 23, "Print"],
Cell[168229, 3708, 70, 1, 23, "Print"],
Cell[168302, 3711, 72, 1, 23, "Print"],
Cell[168377, 3714, 72, 1, 23, "Print"],
Cell[168452, 3717, 72, 1, 23, "Print"],
Cell[168527, 3720, 70, 1, 23, "Print"],
Cell[168600, 3723, 72, 1, 23, "Print"],
Cell[168675, 3726, 70, 1, 23, "Print"],
Cell[168748, 3729, 72, 1, 23, "Print"],
Cell[168823, 3732, 72, 1, 23, "Print"],
Cell[168898, 3735, 72, 1, 23, "Print"],
Cell[168973, 3738, 70, 1, 23, "Print"],
Cell[169046, 3741, 70, 1, 23, "Print"],
Cell[169119, 3744, 72, 1, 23, "Print"],
Cell[169194, 3747, 69, 1, 23, "Print"],
Cell[169266, 3750, 70, 1, 23, "Print"],
Cell[169339, 3753, 70, 1, 23, "Print"],
Cell[169412, 3756, 70, 1, 23, "Print"],
Cell[169485, 3759, 70, 1, 23, "Print"],
Cell[169558, 3762, 72, 1, 23, "Print"],
Cell[169633, 3765, 70, 1, 23, "Print"],
Cell[169706, 3768, 70, 1, 23, "Print"],
Cell[169779, 3771, 72, 1, 23, "Print"],
Cell[169854, 3774, 70, 1, 23, "Print"],
Cell[169927, 3777, 69, 1, 23, "Print"],
Cell[169999, 3780, 70, 1, 23, "Print"],
Cell[170072, 3783, 70, 1, 23, "Print"],
Cell[170145, 3786, 70, 1, 23, "Print"],
Cell[170218, 3789, 72, 1, 23, "Print"],
Cell[170293, 3792, 72, 1, 23, "Print"],
Cell[170368, 3795, 70, 1, 23, "Print"],
Cell[170441, 3798, 70, 1, 23, "Print"],
Cell[170514, 3801, 72, 1, 23, "Print"],
Cell[170589, 3804, 72, 1, 23, "Print"],
Cell[170664, 3807, 69, 1, 23, "Print"],
Cell[170736, 3810, 73, 1, 23, "Print"],
Cell[170812, 3813, 73, 1, 23, "Print"],
Cell[170888, 3816, 71, 1, 23, "Print"],
Cell[170962, 3819, 73, 1, 23, "Print"],
Cell[171038, 3822, 73, 1, 23, "Print"],
Cell[171114, 3825, 71, 1, 23, "Print"],
Cell[171188, 3828, 71, 1, 23, "Print"],
Cell[171262, 3831, 73, 1, 23, "Print"],
Cell[171338, 3834, 70, 1, 23, "Print"],
Cell[171411, 3837, 71, 1, 23, "Print"],
Cell[171485, 3840, 71, 1, 23, "Print"],
Cell[171559, 3843, 73, 1, 23, "Print"],
Cell[171635, 3846, 71, 1, 23, "Print"],
Cell[171709, 3849, 73, 1, 23, "Print"],
Cell[171785, 3852, 73, 1, 23, "Print"],
Cell[171861, 3855, 73, 1, 23, "Print"],
Cell[171937, 3858, 71, 1, 23, "Print"],
Cell[172011, 3861, 71, 1, 23, "Print"],
Cell[172085, 3864, 73, 1, 23, "Print"],
Cell[172161, 3867, 71, 1, 23, "Print"],
Cell[172235, 3870, 71, 1, 23, "Print"],
Cell[172309, 3873, 73, 1, 23, "Print"],
Cell[172385, 3876, 71, 1, 23, "Print"],
Cell[172459, 3879, 73, 1, 23, "Print"],
Cell[172535, 3882, 71, 1, 23, "Print"],
Cell[172609, 3885, 71, 1, 23, "Print"],
Cell[172683, 3888, 73, 1, 23, "Print"],
Cell[172759, 3891, 73, 1, 23, "Print"],
Cell[172835, 3894, 73, 1, 23, "Print"],
Cell[172911, 3897, 73, 1, 23, "Print"],
Cell[172987, 3900, 71, 1, 23, "Print"],
Cell[173061, 3903, 73, 1, 23, "Print"],
Cell[173137, 3906, 71, 1, 23, "Print"],
Cell[173211, 3909, 73, 1, 23, "Print"],
Cell[173287, 3912, 71, 1, 23, "Print"],
Cell[173361, 3915, 71, 1, 23, "Print"],
Cell[173435, 3918, 71, 1, 23, "Print"],
Cell[173509, 3921, 73, 1, 23, "Print"],
Cell[173585, 3924, 73, 1, 23, "Print"],
Cell[173661, 3927, 73, 1, 23, "Print"],
Cell[173737, 3930, 73, 1, 23, "Print"],
Cell[173813, 3933, 73, 1, 23, "Print"],
Cell[173889, 3936, 73, 1, 23, "Print"],
Cell[173965, 3939, 71, 1, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[174085, 3946, 2896, 71, 272, "Input"],
Cell[176984, 4019, 932, 28, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177953, 4052, 179, 5, 31, "Input"],
Cell[178135, 4059, 1991, 44, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[180163, 4108, 2047, 49, 152, "Input"],
Cell[182213, 4159, 5733, 100, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[187949, 4261, 5733, 100, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[193685, 4363, 5935, 104, 369, 3532, 63, "CachedBoxData", "BoxData", \
"Output"],
Cell[199623, 4469, 5937, 104, 369, 3532, 63, "CachedBoxData", "BoxData", \
"Output"],
Cell[205563, 4575, 5599, 99, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"],
Cell[211165, 4676, 5599, 99, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216801, 4780, 1548, 47, 192, "Input"],
Cell[218352, 4829, 6832, 119, 369, 3810, 68, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225221, 4953, 1821, 52, 192, "Input"],
Cell[227045, 5007, 319, 4, 30, "Output"],
Cell[227367, 5013, 317, 4, 30, "Output"],
Cell[227687, 5019, 323, 4, 30, "Output"],
Cell[228013, 5025, 337, 4, 30, "Output"],
Cell[CellGroupData[{
Cell[228375, 5033, 146, 3, 23, "Print"],
Cell[228524, 5038, 148, 3, 23, "Print"],
Cell[228675, 5043, 148, 3, 23, "Print"],
Cell[228826, 5048, 148, 3, 23, "Print"],
Cell[228977, 5053, 148, 3, 23, "Print"],
Cell[229128, 5058, 148, 3, 23, "Print"],
Cell[229279, 5063, 148, 3, 23, "Print"],
Cell[229430, 5068, 146, 3, 23, "Print"],
Cell[229579, 5073, 148, 3, 23, "Print"],
Cell[229730, 5078, 149, 3, 23, "Print"],
Cell[229882, 5083, 147, 3, 23, "Print"],
Cell[230032, 5088, 147, 3, 23, "Print"],
Cell[230182, 5093, 147, 3, 23, "Print"],
Cell[230332, 5098, 149, 3, 23, "Print"],
Cell[230484, 5103, 146, 3, 23, "Print"],
Cell[230633, 5108, 146, 3, 23, "Print"],
Cell[230782, 5113, 149, 3, 23, "Print"],
Cell[230934, 5118, 147, 3, 23, "Print"],
Cell[231084, 5123, 147, 3, 23, "Print"],
Cell[231234, 5128, 149, 3, 23, "Print"],
Cell[231386, 5133, 150, 3, 23, "Print"],
Cell[231539, 5138, 148, 3, 23, "Print"],
Cell[231690, 5143, 150, 3, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[231889, 5152, 11440, 301, 1672, "Input"],
Cell[243332, 5455, 77, 1, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
